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Preface 



In data processing installations, a large amount of 
computer idle time may be spent between jobs to set 
up the computer for the next job. Programs must be 
readied, data must be readied, etc. The amount of 
time spent in these activities is greater in installations 
where many different jobs are done in the daily sched- 
ule. Because computer utilization is usually based 
upon the time spent in executing a job, utilization may 
appear to be low where multiple jobs increase setup 
time. 

To increase 1620 computer utilization, the user may 
now adopt the Monitor I Programming System. The 
primary function of the Monitor I System is to provide 
continuous operation during a sequence of jobs which 
might otherwise involve several independent pro- 
gramming systems. To do this, Monitor I coordinates 
computer activity by providing a communication re- 
gion for independent programming systems and by 
transferring control between them. Operation is con- 
tinuous and setup time is reduced. This effects a sub- 
stantial time saving in computer operation and allows 
greater flexibility in programming. The monitor con- 
cept — to control the operation of several unrelated 
routines and machine runs so that the computer and 
computer time are used advantageously — is not new. 
This concept, previously employed by other large- 
storage-capacity data processing systems, is made 
possible for the 1620 by the 1311 Disk Storage Drive, 

The Monitor I System utilizes the large storage ca- 
pacity of the 1311 Disk Storage Drive. Thus it is possi- 
ble to assemble, assemble and execute, compile, com- 
pile and execute, and execute programs stored in disk 
storage. In addition, the normal disk storage main- 
tenance tasks, such as storing programs, can be per- 
formed by the system. 

A stacked input arrangement provides direction for 
the system. This direction is given in the form of 
control records, which are prepared prior to the 
actual operation by the programmer and/or operator. 
These records direct the sequence of jobs without in- 



terrupting continuous operation. A typical sequence 
of jobs could be a compilation of Fortran programs, 
assembly of sps programs, compilation and execution 
of a Fortran program, execution of a disk-stored pro- 
gram, and punching of a disk-stored program into 
cards. 

In addition to substantial saving of computer time, 
Monitor I reduces the amount of programming time 
required by the user. This is made possible through 
sharing common subroutines by unrelated programs. 
For example, input and output for all sps object pro- 
grams can be performed by a common input/output 
subroutine. Thus, programming time is reduced be- 
cause a common subroutine need only be written 
once. Because most programs require a subroutine of 
this nature, it has been made an integral part of the 
Monitor I System, available to all 1620 user pro- 
grams. 

To use the Monitor System, the programmer must 
pay particular attention to control records and stacked 
input arrangements described in this publication. In 
addition to directing the sequence of jobs, control 
records allow the user the flexibility of assigning the 
specifications for each job. Various jobs, each with its 
own control record, are entered into the 1620 in the 
stacked arrangement. Jobs are performed in the order 
in which they are encountered under control of the 
Monitor and without operator attention. However, 
some messages generated by the Monitor regarding 
the status of processing may require operator inter- 
vention. 

The ibm 1620 Monitor I System is comprised of 
four separate programs: 

Supervisor Program 
Disk Utility Program 
SPS ii-d 
FORTRAN II-D 

The material contained in this publication is organ- 
ized and presented under these headings. 
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Monitor I (Figure 1), a collective name for four dis- 
tinct but interdependent programs — Supervisor, Disk 
Utility, sps ii-d, and Fortran h-d programs — is a 
powerful, combined operating and programming sys- 
tem. Systems of this type have previously been avail- 
able only on other large-storage capacity computers. 
The 1311 Disk Storage Drive with two-million posi- 
tions of storage makes possible the implementation of 
such a system on the 1620. Although both sps and 
Fortran are included with the Monitor System, either 
may be deleted from the system, if desired. 

The complete Monitor System resides in disk stor- 
age and only those routines or programs required at 
any one time are transferred to core storage for exe- 
cution. This feature, which is common to a Monitor 
System, minimizes core storage requirements and per- 
mits segmenting of long programs. It makes any one 
of many programs accessible to the computer with 
minimum delay or manual operation. 

Inclusion of sps and Fortran programming lan- 
guages in the Monitor System facilitates development 
of a library of user object programs. Programs can 
be stored in cards or paper tape, as they were stored 
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in the past. In addition, they can be stored in disk 
storage without the necessity of assigning actual stor- 
age areas, remembering or documenting the storage 
assignments, and updating assignments and documen- 
tation as conditions change. These disk-stored pro- 
grams can be referred to by a name or number when 
called for execution. If a program is added to the 
user's repertoire of programs, the storage locations of 
the other programs may be adjusted to prevent the 
overlapping of data in disk storage. An account of 
available disk storage is kept for the user as adjust- 
ments are made to disk storage. 

To make effective use of disk storage, a common 
disk working area is maintained for all facets of the 
Monitor System. One use for this area is to store inter- 
mediate output from Fortran compilations or sps 
assemblies to speed up these operations. 

Approximately 22 percent of disk module zero is 
used for the Monitor System itself. The remainder 
of disk storage, with the exception of a few sectors 
on each additional disk module, can be used for user 
programs and data records. 

The use of disk storage is controlled by three disk- 
stored tables. The first and major table is the Disk 
Identification Map known as dim. Each disk-stored 
item (program, data, or table) has a dim entry which 
contains information on where the item is stored, 
how many disk sectors it occupies, and, if it is a 
program, its core storage address. Thus, to refer to 
an item, it is only necessary to use its dim entry num- 
ber. For those who prefer to use an alphabetic name 
instead of a number, a second table, called Equiva- 
lence table, lists the names and their equivalent dim 
entry numbers. The third table, a Sequential Program 
table, shows the assignment of disk storage by dim 
entry numbers and the availability of unassigned 
storage. Maintenance of these tables is performed 
automatically by the Monitor without user supervision 
or direction. 

To examine the Monitor System, it is best to sum- 
marize the functions of its various parts: Supervisor 
Program, Disk Utility Program, sps, and Fortran. 
Subsequent sections present the detailed information 
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for each, required to program and operate. 

The four primary functions of the Supervisor Pro- 
gram are: 

• Input/output 

• I/O error detection and correction 

• Program loading 

• Control 

Individual routines which perform these functions 
follow. 

Input/Output routine, which performs all I/O 
functions (card, paper tape, typewriter, or disk) 
for the Monitor System. 
I/O Error routine, which provides for error detec- 
tion and correction for all I/O operations per- 
formed by the Input/Output routine. 
Loader routine, which loads object programs into 
core storage from card, paper tape, typewriter 
or disk input. 
Monitor Control Record Analyzer routine, which 
records and interprets jobs to be performed, and 
transfers control to other routines or programs 
while maintaining communication so that control 
may eventually be returned to itself. 
Because all input/output is processed by the In- 
put/Output routine, all data, programs, or control in- 
formation from any input unit enter the 1620 cpu 
through this routine. The Input/Output routine is able 
to segment the continuous flow of input information 
into discrete jobs. Certain information is recognized 
as control information. With the proper control infor- 
mation, the Monitor could, for example, execute a 
particular series of jobs consisting of (1) compiling 
a Fortran program and executing it using supplied 
data from any input source, (2) loading an sps object 
program from disk storage and executing it using 
data supplied from any input source. All of this can 
proceed automatically from one task to the next 
without stopping the machine for operator action. 
Thus, ease of operation is achieved with increased 
efficiency and throughput. 

The Input/Output routine recognizes Monitor con- 
trol information by two record marks (4=4=)- If the 
first two columns of a card or tape record contain 
record marks, the control information is examined by 
the Monitor Control Record Analyzer routine to see 
which one of twelve possible tasks is to be performed 
next. 

1. 4=4= job, initiates a new job. 

2. 4=4= sps, indicates that an sps source program(s) 
is to be assembled. 



3. 4=4= spsx, indicates that an sps source program 
is to be assembled and executed. 

4. 4=t= for, indicates that a Fortran source pro- 
grants) is to be compiled. 

5. 4=4= forx, indicates that a Fortran source pro- 
gram is to be compiled and executed. 

6. =(==1= DUP > indicates that a Disk Utility routine is 
to be executed. 

7. 4=4= type, indicates the next control record is 
to be entered from the typewriter by the opera- 
tor. 

8. 4=4= paus, allows operator action. 

9. 4=4= XE Q> initiates loading and execution of an 
sps object program. 

10. 4=4= xeqs, initiates loading and execution of 
Fortran or sps object programs with subroutines. 

11. =|=4=4=4 : > is used to indicate the end of a job. 

12. 4==K serves as a Comments record. 

These control records can be classified as being one 
of three types. Type 1 provides control information 
which is used as instructions to the Supervisor Pro- 
gram. Type 2 provides for loading and starting the ex- 
ecution of user-written programs, using data from con- 
trol records to initialize various subroutines used by 
programs. Type 3 provides for functions similar to 
type 2 except that the Fortran, sps or the Disk Utility 
Program with its functional capabilities is also execut- 
ed. 

When Fortran, sps, or the Disk Utility Program 
is executed, all input records are examined for 
an asterisk ( * ) in the first position to determine 
if they are control records. These records have two 
functions : ( 1 ) they provide information about specific 
Disk Utility jobs to be performed, (2) they provide 
the specifications for Fortran compilations or sps 
assemblies. 

Ten Disk Utility Control records provide various 
user options. Each of these control records transfers 
control to an individual routine to perform the desired 
function. 

1. *dwrad, indicates sector addresses are to be 
written on a disk pack. 

2. * d altr, allows the operator to alter disk-stored 
data from the typewriter. 

3. *ddump, indicates disk-stored data or programs 
are to be outputted in cards, paper tape or on 
the typewriter. 
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4. *dload, indicates a program is to be loaded into 
disk storage from cards, paper tape, or the work- 
ing cylinders. 

5. *drepl, indicates a disk-stored program is to be 
replaced by another. 

6. *dcopy, indicates that data or programs are to 
be copied into another area of disk storage. 

7. *delet, indicates a program is to be deleted 
from disk storage. 

8. *dfine, allows changes to be made to the Moni- 
tor System specifications. 

9. *dlabl, is used to write identity labels on disk 
packs. 

10. *dflib, allows names to be assigned to Fortran 
library subroutines. 
Examples of Fortran and sps asterisk control records 
are: 



FORTRAN 

*pobjp4 
*pstsn4 



sps 

'output card 



'punch symbol 

TABLE 



Description 
Punch object program 

into cards 
Punch Symbol Table 

into cards 



The many routines of the Disk Utility Program are 
designed to perform the necessary but tedious disk 
housekeeping functions. Items stored on the disk or 
items to be stored On the disk can be referred to 
symbolically; that is, by a symbolic name. The Moni- 
tor System will allocate and keep track of disk storage 
areas for the user. 

The sps ii-d assembler translates programs wrijtten 
in symbolic language into machine language. The 
symbolic language is an extension of 1620/1710 sps. 
Only one pass of the source statements is required be- 
cause intermediate output is stored on the disks. Also, 
the Symbol table is disk stored, thereby allowing for 
assembly of programs with a great number of labels. 
An additional symbol table, known as the System 
Symbol table allows different sps source programs to 
use common labels. 

I/O macro-instructions are provided in the sps 
language to relieve the programmer of writing Input/ 
Output routines in source programs for card, paper 
tape, or disk operations. Thus, all I/O functions in- 
cluding error detection and correction can be stand- 
ardized, get and put macro-instructions are used for 
reading and writing. These instructions generate ap- 
propriate linkages to the Input/Output routine which 
does the actual reading or writing (card, paper tape, 
or disk). 



To eliminate the necessity of having an entire ob- 
ject program in core storage for execution at any one 
time, a call macro-instruction is provided. This in- 
struction enables an object program in core storage 
to be overlayed with instructions from disk storage. 
Thus, the size of an object program can be virtually 
unlimited. 

Immediately following assembly, an object program 
is located in the disk working cylinders. It can be 
stored in disk storage without outputting it in some 
other form, thereby greatly reducing program loading 
time. Program listings can be obtained in either card 
or typewriter form. The program can also be immedi- 
ately executed or punched out into cards or paper 
tape for loading and executing at any later time. 

Any library subroutine set may be used by an 
object program. User-written relocatable programs 
can be automatically added to the library subroutine 
set, if desired. 

The Fortran compiler translates programs written 
in the Fortran ii-d language into 1620 machine lan- 
guage. Because of the large storage capacity of the 
1311, source programs are read into the computer 
just once. Intermediate output is stored in the disk 
work area to minimize input/output time. Following 
compilation, an object program may be executed im- 
mediately, punched into cards or paper tape, or stored 
in disk storage for execution at a later time. 

Statements are provided in the Fortran language 
that permit the use of disk storage. These statements 
provide for ( 1 ) defining the size and quantity of data 
records to be stored, ( 2) reading and writing on disks, 
(3) positioning the disk access mechanism for read- 
ing or writing, (4) returning control to the Supervisor 
after execution of a Fortran object program, (5) over- 
laying programs in core storage with other programs 
from disk storage and executing the overlaying pro- 
grams. 

Subprograms can reside in either core or disk stor- 
age. Disk-stored subprograms can be called into core 
storage only when needed. Thus very large problems 
can be accommodated. 

New floating-point and subscripting subroutines, 
which use the Indirect Addressing feature and com- 
piler algorithms, provide for efficient object program 
execution. Subroutines written in sps ii-d language 
can easily be added to the Fortran subroutine library. 
Also, subprograms written in sps can be called for 
execution by Fortran programs or subprograms. 

Object programs, either sps or Fortran, can be 
punched into cards or paper tape following assembly 
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or compilation, if desired. However, assembly or 
compilation time is shortened if the object program 
is stored in disk storage rather than cards or paper 
tape. A standard System Output format, which may 
be in absolute or relocatable form, is used to output 
object programs. Only the programs outputted in the 
standard format can be reloaded by the Monitor 
System. 

sps and Fortran source programs are assembled or 
compiled using a given mantissa length, noise digit, 
subroutine set, etc., specified in a common Communi- 
cations Area. These given specifications are used for 
all assemblies or compilations; however, the user may 
change one or more of the specifications, such as 
mantissa length, with control records for a particular 
assembly or compilation. 

sps or Fortran source programs can be entered into 
the 1620 from cards, paper tape, or typewriter. Object 
programs, however, can be entered from cards, paper 
tape, or disk storage. Data, of course, can be entered 
from any input source as directed by an object pro- 
gram. 

sps ii-d and Fortran ii-d object programs will be 
in a System Output format. System Output consists 
of relocatable or absolute records. The relocatable 
format allows the programmer to specify a different 
core storage address for the start of a program each 
time it is loaded. All addresses within a program that 
are being relocated are adjusted relative to a new 
starting address. The starting address (relocation ad- 
dress) is specified by means of a control card at load 
time. Absolute format, which can be generated by the 
sps ii-d assembly program, is assembled to load to a 
fixed core storage area. 

Machine Requirements 

The Monitor I System operates on a 1620 System, 
Models 1 or 2, which has a minimum of 20,000 posi- 
tions of core storage, a 1311 Disk Storage Drive, 
Model 3, and the special features, Indirect Addressing 
and Automatic Divide. Automatic Divide is required 
only for execution of Fortran ii-d and for sps ii-d 
programs which use the Arithmetic and Functional 
subroutines. 

Operation 

The Monitor I System is available in either card or 
paper tape versions, ready for loading to disk storage. 
After either version is loaded, both cards and paper 
tape may be used with the programs. 



The system is self-loading, i.e., it contains the load- 
ing instructions that enable it to load itself into disk 
storage. For handling convenience, a sequence num- 
ber is punched in card columns 76-80 of card input. 
Disk storage drive (address block 00000-19999) is 
required for storing the Monitor I System. A descrip- 
tion of the loading process, including operating pro- 
cedures, is included under monitor i system loader. 

To begin operation of the Monitor I System, load 
the Supervisor Program into core storage from disk 
storage. This is accomplished by entering from the 
typewriter or a card, the following instructions: 

Core Storage 
Address of 
Instruction 



00000 
00012 
00024 
00031 
00032 



Instruction 
34 00032 00701 
36 00032 00702 
49 02402 
X 

Y1963611300102 



X identifies the form of input for the Monitor Control 
records: 1 for typewriter, 3 for paper tape, and 5 for 
cards. Y specifies the disk drive code (1, 3, 5, 7) iden- 
tifying the disk module where the Monitor I System is 
loaded. (Any time the Monitor pack is moved to a 
different drive, this sequence of instructions must be 
repeated. ) 

When the Release and Start key or Load key is 
depressed, the Supervisor Program is read into core 
storage and the first Monitor Control card is read 
in under control of the Supervisor Program by the 
Monitor Control Record Analyzer routine. 

This routine reads all control records and types 
them out to inform the operator of the status of proc- 
essing. If operator intervention is required for any 
reason, the routine will type a message and halt the 
1620. Processing can be resumed as explained in the 
section concerning the monitor control record ana- 
lyzer ROUTINE. 

The Parity, I/O, and Overflow Program switches 
should be on to operate the Monitor I System. 

Disk Storage Requirements 

Portions of cylinders 24-25 and 80-99 of module are 
used by the Monitor I System. Unused portions of 
these cylinders can be listed using the Disk-to-Output 
routine to obtain an availability list. A list of the as- 
signed cylinders and dim entry numbers associated 
with the programs, routines, and tables stored in this 
disk area follows. 
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Program/Table 


Cylinders 


DIM Numbers 


WnrHnrT Qf-/-\vo eta 

vv uiKin^ oii/icij^c 


00-23 




HTM f'lVkl** 


24 


3 


fcjQiiivtilencc table 




2 


r yjix i aa.im ouupro^rtHH 


80 84 


1 38 1 47 149 


Locidcr 




150, 152, 157 


FORTRAN T ihrnrv Suh- 


81 


* 10-39 


routines 






SPS Library Subroutines 


82-83 


**40-130 


FORTRAN T/O and ArifTimp- 

r VJR 1 RAll 1/ dllLl AI 11X1111 C" 


84 97 


144-146 


tic Subroutines 






FORTR AN r'nmnilfM* 


86-90 


136-137, 153, 156 


IvloK U 1111 iy i 1 KJgl dill 


flK Q1.Q2 

OkJj \J J. \j£t 


139-143 154 155 

XkJks i^»Jj ±.U^ty luw 


SPS Assembler 


Ql-Qfi 


8 Q I'll T}0 


SPS Subroutine Supervisor 


oo 


133 


Supervisor Program with I/O 




134 148 


Routine 






System Output Loader Routine 


98 


135 


1440, 1401, 1410, Systems 


99 


166-169 


Header Label Area *** 






Monitor Disk Pack Label*** 


99 


158-161 


Mutual Disk Pack Identifica- 


99 


162-165 


tion Label *** 






Sequential Program table *** 


99 


4, 5, 6, 7 


System Area 


99 


151 



*Only DIM entries 10-25 are in use when the system is 
delivered. 

**Only DIM entries 40-57, 70-87, 100-117, and 130 are in 

use when the system is delivered. 
***Present on all available modules. 



Any program or routine not to be used may be de- 
leted from disk storage using the Disk Utility Pro- 
gram, Delete Programs routine. All areas are assigned 
automatically to module when the system is initially 
loaded; however, certain assignments can be altered 
by the user as described in the section concerning 
1620 Disk Utility Program, under define parameters 
(dfine) control card. With this entry it is possible 
to utilize more than one disk storage drive and to 
enlarge or shorten the tables used by the Monitor 
System. 

work cylinders 

Cylinders 00-23, reserved for working storage, are 
available to every program. This area is not available 
for permanent storage of programs and data. This 
area is identified by dim entry 0001. 

The working cylinders may be thought of as a 
"scratch pad"; i.e., an area for storing intermediate 
results. These results should be moved to another disk 
area if they are to be retained for further use. Be- 
cause the Monitor I System uses this area to perform 
its function, the contents of the area are continually 
changing. However, an object program will occupy 
the area at the beginning of the work cylinders im- 
mediately after compilation or assembly is completed. 



equivalence table 

When a user's object program, identified by name, 
is loaded into disk storage by its compiler or by the 
dload or drepl routines of the Disk Utility Program, 
its name as well as its dim entry number is entered in 
the Equivalence table. Sixteen-digit positions are re- 
quired for each entry, twelve for the 6-character al- 
phabetic name and four for the dim entry number 
that starts with 0001. Eighty sectors with a capacity 
of 500 program names are reserved to store the Equiv- 
alence table immediately following the standard dim 
table (cylinder 24). 

When the Monitor System is delivered, the first 51 
entries are reserved for the system, fifty for Fortran 
library subroutine names, and one for the sps ii-d 
modification program. Unused names in the first 50 
entries will be identified by a field of 16 nines. 

When a name, other than a Fortran subroutine, is 
added to the table, it is placed in the 16 positions fol- 
lowing the last entry. When a name, other than a 
name from the first 50 entries, is deleted from 
the table, all entries in higher-numbered positions are 
shifted left to overlay the deleted entry. Thus, the 
table, with the exception of the first 50 entries, will 
contain only those entries that are in force at any 
one time. The rightmost position of the table is identi- 
fied by a record mark. 

DISK IDENTIFICATION MAP (dim) TABLE 

The Supervisor Program, Disk Utility Program, sps 
assembler, and Fortran compiler use this table to find 
subroutines, data areas, or tables in disk storage. The 
dim table on cylinder 24 can accommodate up to 999 
20-digit entries. One entry is required for each pro- 
gram or data area permanently stored in disk storage. 
The format of the 20-digit dim entry follows: 

DDDDDDSSSCCCCCEEEEE 4= 

dddddd is the disk sector address of the program or 
data. 

sss is the sector count. 

ccccc is the core address. If this field is all 9's, the 
program is in System Output format (see system 
output format). If the units position is flagged, 
the Subroutine Supervisor is used to load the pro- 
gram. 

eeeee is the entry address. This address is relative to 
the load address (first core address to be loaded) 
for programs in relocatable format. 

=f=> or =f= is the rightmost character of a dim 

entry. 

These characters indicate the following conditions 
about a referenced program. 
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Character File Protected Permanently Assigned 

^ Yes No 

^ Yes Yes 

=(= No No 

^= No Yes 

Note: (1) That a file-protected program can be 
read but not written because it has read-only flags 
written in all (or any one) of the sector addresses in 
the disk area which it occupies. If read-only flags are 
written by a user's program in sector addresses where 
a program is stored, that disk storage area will not 
be "file protected," however, data cannot be written 
in individual sectors which contain read-only flags. 
(2) That a permanently assigned program cannot be 
repositioned (moved) in disk storage because it has 
been assigned to a given address by the user. 

The Supervisor Program locates a dim entry in the 
following manner: 

1. It refers to the Equivalence table to find the 
4-digit dim entry number. 

2. It doubles this number and adds the sum to 
048000. 

3. It uses the leftmost five digits of the result to 
locate the disk sector of the dim table. 

4. It uses the rightmost digit of the result to find 
the particular dim entry. 

The dim table can be expanded ( see define param- 
eters routine) to contain up to 4995 dim entries, an 
increase of 999 entries for each additional cylinder, 4 
additional cylinders maximum. 

sequential program table 

The second through eighty-first sectors ( 80 sectors ) of 
cylinder 99 are reserved on each disk pack for a Se- 
quential Program table which lists the programs, 
tables, and data areas sequentially by dim numbers, 
and available storage space by special coding. The 
Sequential Program table is used by the 1620 Disk 
Utility Program to determine the order of programs 
and available storage space. When a program is add- 
ed to or deleted from disk storage, the table is updat- 
ed to reflect the new squence. Each 80-sector table 
will accommodate up to 2000 4-digit entries. Three 
types of entries are included in a table. 

1. dim entry numbers for every program or data 
area specified in the dim table. 

2. Available sector count to indicate the number 
of available sectors between programs or data 
within cylinders. 

3. Cylinder entry numbers to identify the beginning 
of each cylinder. 



Available sector numbers always begin with 9 
(9xxx); the three rightmost digits denote the number 
of consecutive available sectors. For example, 9021 
indicates that 21 consecutive sectors are unused with- 
in a cylinder. A maximum of 200 available sectors 
can be represented by an entry. 

Cylinder entry numbers always begin with 70 
(70xx); the two rightmost digits represent the cylin- 
der number. One hundred of these entries are con- 
tained in the table, one for each of the 100 cylinders 
numbered 00-99. 

An example of how the three types of entries might 
appear in a Sequential Program table for cylinders 
48-52 follows: 

7048 0434 0435 7049 0436 9010 0437 7050 0437 
7051 0437 7052 0437 

where the programs identified by dim entry numbers 
0434 and 0435 occupy all 200 sectors of cylinder 48, 
and the programs identified by dim entry numbers 
0436 and 0437 occupy all sectors of cylinders 49-52, 
with the exception of 10 unused sectors between the 
two programs in cylinder 49. Note that programs that 
overlap cylinders will have the associated dim entry 
number repeated for each cylinder on which it is 
stored. 

The length of the Sequential Program table is 80 
sectors unless changed by a dfine control record (see 
disk utility program). Fifty sectors should provide 
sufficient space in the table if 1000 programs are to 
be written on a disk pack. Therefore, the user may 
want to lengthen or shorten the table for his particular 
needs. 

IBM 1440, 1401, 1410, Systems Header Label Area 

To facilitate the processing of common disk packs, a 
standard alphabetic identification label is created on 
the 1401, 1410, or 1440 Systems. This label is not used 
by the 1620 System. The disk storage area (first 19 
sectors of the last disk track of the last cylinder) re- 
served for this label can be released for other storage 
purposes, using the delet Disk Utility routine, if a 
disk pack will be used with the 1620 only. The dim 
entries for the four modules that may be connected 
to the system are 166, 167, 168, and 169. 

Mutual Disk Pack Label 

A 5-digit disk pack identification label that can be 
used by the other systems (1440, 1401, or 1410) must 
be written on the 32nd through 36th position on the 
last sector of cylinder 99. This sector should be given 
the sector address 00199 regardless of the addressing 
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scheme used on the remainder of the disk pack. The 
sector can be labeled automatically using the Define 
Disk Pack Label routine of the Disk Utility Program. 

Monitor Disk Pack Label 

The first sector of cylinder 99 is a label sector, that 
is, it contains a label to identify the disk pack. Each 
disk pack used by the Monitor System must include 
this label. A 5-digit disk pack identification number 
in the five leftmost positions of the sector constitutes 
the label. This number is used to provide protection 
for user's records as explained in the section entitled 
disk pack identification numbers. This file-protected 
label must be generated using the Define Disk Pack 
Label routine. The dim numbers for these labels are: 
0158, 0159, 0160, and 0161 for packs placed on 
modules 0, 1, 2, and 3, respectively. 



Core Storage Requirements 

The Monitor I System requires certain areas of core 
storage in order to operate. Core storage positions 
00100-02401 must be permanently assigned to the 
Monitor I System; however, positions 00000-00099 and 
02402-19999 are only temporarily assigned to the 
system. A temporary area is available to the user for 



execution of object programs. The core storage layout 
for the Monitor I System follows. 



Inter-Phase ~ May be Used by Object Program 


00000 - 00099 


Arithmetic Table 


00100 - 00400 


System Communications 


00402 - 00439 




00440 - 02401 


I/O Routine, 
I/O Error Routine, 
Loader Routine and 
Initializing Routines. 




Supervisor Program, Monitor 
Control Record Analyzer 
Routine, SPS Processor, 
and FORTRAN Compiler. 
(May be Used by Object Programs.) 


02402 - 19999 


Available Storage 


20000- 



IBM 1620 Monitor I System 
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Supervisor Program 



The Supervisor Program performs the control func- 
tions and Input/Output (I/O) functions for the 1620 
Monitor I System. The Fortran ii-d compiler and the 
sps ii-d processor, under control of the Supervisor Pro- 
gram, can be used to compile or assemble machine 
language object programs. The Disk Utility Program, 
also under control of the Supervisor Program, can be 
used to write disk addresses, to alter a disk sector of 
data from the typewriter, to load, update, and move 
programs in disk storage, to delete programs from 
disk storage, and to copy data, disk to disk. 

sps ii-d or Fortran ii-d object programs can be 
loaded from cards or paper tape into disk storage un- 
der control of the Supervisor Program. Because the 
I/O functions are performed by a routine contained 
in the Supervisor Program, the programmer need not 
concern himself with writing these routines in sps 
source language. By use of a macro-instruction in the 
sps source program, cards and paper tape can be 
read and punched, data can be stored and retrieved 
from disk storage, and data can be read and typed 
from the typewriter under control of the I/O routine 
in the Supervisor Program. When a macro-instruction 
is encountered in a source program, linkage instruc- 
tions, which provide an exit to an I/O routine, are 
created in the object program. If desired, the user 
may manually code linkage instructions without the 
use of macro-instructions. Manually coded linkage 
instructions offer certain input/output options, unob- 
tainable with macro-instructions. Error checking and 
correction procedures are a part of the I/O routine. 
The Supervisor and Disk Utility Programs use the 
I/O routine to perform their assigned tasks. 



Monitor Control Records 

Although the Monitor Control records are described 
in terms of cards, these records can be in paper tape 
or typewriter form. 

The input to the Supervisor Program consists of 
one or more "job decks" (Figure 2). A job deck, as 
the term is used in this manual, may be a program 
to be compiled or assembled, a combination of these 
two (including data); it may also be a series of Disk 
Utility Program operations. The Processing of each 



job deck is controlled by the Supervisor as specified 
by the Monitor Control card that precedes it. 

When a Monitor Control card is read, the program 
required to do the job is read into core storage from 
disk storage. The program then processes input until 
the end of the job deck is reached, a new Monitor 
Control card is encountered, or an error occurs. When 
the end of a job deck is reached or a new Monitor 
Control card is encountered, the Supervisor Program 
is reloaded into core storage from disk storage, and 
the process is repeated. If an error occurs, a message 
will print to identify the error, and the remainder of 
the job will be processed. If it is not possible for the 
job to continue, the Supervisor Program will skip to 
the next job. All Monitor Control records, with the 
exception of those entered from the typewriter, will 
be typed out on the 1620 console typewriter. 

The 1620 Monitor I System uses eleven Monitor 
Control cards to indicate the processing required of 
the 1620 Supervisor Program. The manner in which 
the Supervisor handles each of these cards is describ- 
ed in Figure 3. 



Operation Codes 

An alphabetic pseudo operation code, left-justified in 
columns 3-6, is used to identify each of the eleven 
Monitor Control cards. By examining the operation 
code, the Supervisor Program is able to determine 
what processing action is required. 

JOB 

A job operation causes ( 1 ) the description or operat- 
ing instructions contained in the job Monitor Control 
card to be typed, (2) modifies the module, if re- 
quired, and (3) checks to ensure that the proper disk 
packs have been attached by the operator. 

SPS 

This operation causes the sps ii-d assembly program 
to be read into core storage from disk storage and to 
be executed. The assembled object program may be 
stored in disk storage and an entry made in the dim 
(Disk Identification Map) table. 
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SPSX 

The spsx operation is similar to the sps operation, 
with one exception: after the object program is as- 
sembled, it is then executed. 

FOR 

A for operation causes the Fortran ii-d compiler 
program to be read into core storage from disk stor- 
age and to be executed. The object program can be 
stored in disk storage. If this occurs, an entry will be 
made in the dim table 

forx 

The forx operation is the same as the for operation, 



with one exception: the object program is executed 
after it is compiled. 

XEQ 

The xeq operation causes the sps ii-d object program, 
identified by the Monitor Control card data, to be 
read into core storage from the input device indicated 
in column 27, and then to be executed. If the object 
program requires any of the sps subroutines to oper- 
ate, or if the object program is a Fortran compiled 
program, the xeqs operation must be used instead of 
the xeq operation. Each disk-stored program, called 
by the xeq operation, must have a dim entry to enable 
the Supervisor Program to find it. 



/ 7 k 



/ 



FORTRAN ^ -<■ 
Source Program 



Monitor 
Control Card 



"J 



or Paper Tape) 



i, 


Data 




Monitor 






Control Card 





Job Decks 



/ 



FORTRAN 
Source Program 



Monitor 
Control Card 





SPS Source 






Program 




Monitor Control 


\ 


Card 






1311 Drive 




j jffervisor Progtgg ^. 
i ^UtintyTrogra i^, 

SPS U-D_ 



^-— FORTRAN TJ-D - . 

iter's Programs 



toentlal Program 



!2^ial Program TaW^, 
Drive 1 



V enNof Program W o^, 
Drive 2 
Disk Storage I/O 



Figure 2. Processing Input Data Under Supervisor Control 



'j ^ntigl Program 
Drive 3 



Supervisor Program 13 



XEQS 



STACKED INPUT 
(Monitor Control Cords, 
Data Cords, SPS and 
FORTRAN Source Cards, 
Disk Utility Program 
Control Cards) 




Type 

Description 



Load SPS D-D 
Processor into 
Core Storage 
from Disk Storage 
and Execute 




Load FORTRAN 
II-D Compiler into 
Core Storage from 
Disk Storage and 
Execute 



Lood Disk Utility 
Program into Core 
Storage from Disk 
Storage and 
Execute 



Enter Succeeding 
Monitor Control 
Records from 
Typewriter 



HALT 

Depress Start 
Key to Resume 
Processing 



Load SPS D-D 
Object Program 
without Subroutines 
into Core Storage 
from Disk Storoge 
and Execute 



Lood FORTRAN TJ-D 
or SPS TJ-D Object 
Program with Sub- 
routines into Core 
Storoge from Disk 
Storage ond Execute 



Poss Cards 
to next 
Monitor 
Control Card 



Pass Cards to 
Next Monitor 
Job Card 



This operation causes an sps ii-d or Fortran ii-d 
object program, identified in the Monitor Control 
card, to be read into core storage from disk storage, 
cards, or paper tape, and to be executed. If the object 
program uses any of the sps subroutines, the xeqs 
operation must be used. Each disk-stored program 
called by the xeqs operation must have a dim entry 
to enable the Supervisor Program to find it. 



DUP 

The dup operation causes the 1620 Disk Utility Pro- 
gram to be read into core storage from disk storage 
and to be executed. 



TYPE 

The type operation causes a message — which re- 
quests the operator to enter the next Monitor Control 
record from the typewriter — to be typed and the 
program to stop to await keyboard input. After the 
operator enters the Monitor Control record, the Re- 
lease and Start key should be depressed to resume 
computer operation. All succeeding control records 
must be entered from the Typewriter until a job Con- 
trol record is entered to change the source of input. 

PAUS 

The paus operation halts the program to allow the 
operator to change paper tapes, load input cards, etc. 
Job processing is resumed by depressing the Start key. 

4=4= (end-of-job) 

The 4= #= (end-of-job) operation causes the message 
END OF JOB 

to be typed, if a job has actually started, and control 
is to be resumed by the Supervisor Program. An end- 
of-job record must follow each job. If this record is 
not present erroneous results may be obtained. 

Monitor Control Card Formats 



JOB. 



Figure 3. Logic of Supervisor 



Columns 1-2 4=4= (identification re core 
marks ) 

3-6 Operation (job, left-justified). 
7 Source of input, 

5 = card. 

3 = paper tape. 

1 = typewriter. 
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8-11 Module change numbers (for 
disk input only). 

12-31 Disk pack identification num- 
bers (for disk input only), 
12-16 drive 0. 
17-21 drive 1. 
22-26 drive 2. 
27-31 drive 3. 

32-80 Description. 

SPS, FOR, DUP, TYPE, PAUS. 

Columns 1-2 4=4= (identification record 
marks ) . 

3-6 Operation (sps, etc., left-justi- 
fied). 

7 Source of input, for sps, for, or 
dup Monitor Control cards, 
5 = card. 
3 = paper tape. 
1 = typewriter. 

SPSX. 

Columns 1-2 



3-6 
7 



'8-9 



4=#= ( identification record 
marks ) . 

Operation (spsx). 
Source of input, 
5 = card. 
3 = paper tape. 
1 = typewriter. 
sps subroutine set identification 
number. 
*10 N (Noise) digit. 
* 11-12 Two digits for indicating length 
of mantissa. 

•Required only when the program to be executed 
uses other than the standard operating specifications 
(02 standard subroutine set, standard N digit, 08 
standard mantissa length). 



FORX. 

Columns 1-2 



( identification record 



marks). 
3-6 Operation (forx). 

7 Source of input, 

5 = card. 

3 = paper tape. 

1 = typewriter. 

8 Fortran subroutine set identifi- 
cation number. 

9-10 Control card count (number of 
local control cards). 



XEQ. 



£6 
7-12 



13-16 



17-21 



22-26 



27 



Operation (xeq, left-justified). 
Name of user's program, to be 
executed (same name assigned 
in Equivalence table). 
dim (Disk Identification Map) 
entry number. 

Note that either the name or the 
dim entry number must be given 
(if program is in disk storage), 
but if both are given, the name 
takes precedence. 
Address where loading of user's 
program begins if program is not 
in core image. If not supplied, 
address 02402 is assumed. 
Address where execution of 
user's program is to begin if pro- 
gram is not in core image. This 
address must be relative to the 
start of the program if the pro- 
gram is relocatable; otherwise, 
the absolute entry address must 
be supplied. 
Source of input, 

Blank = disk. 

5 = card. 

3 = paper tape. 
(Note that card or paper tape 
input must be in System Output 
format). 



XEQS. 



Columns 1-2 4=4= (identification record 
marks). 



Columns 1-2 (identification record 

marks ) . 
3-6 Operation (xeqs). 
7-12 Name of user's program to be 
executed (same name assigned 
in Equivalence table). 
13-16 dim (Disk Identification Map) 
entry number. 

Note that either the name or the 
dim entry number must be given 
(if program is in disk storage), 
but if both are given, the name 
takes precedence. 
17-21 Address where loading of user's 
sps object program begins if pro- 
gram is not in core image. If not 
supplied, address 02402 is as- 
sumed. 

22-26 Address where execution of 
user's sps object program begins 
if program is not in core image. 
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This address must be relative to 
the start of the program if the 
program is relocatable; other- 
wise, the absolute entry address 
must be supplied. 

27 Source of input, 

Blank — disk. 

5 = card. 

3 — paper tape. 
(Note that card or paper tape 
input must be in System Output 
format ) . 

28 Subroutine set identification 
number for Fortran programs 
only. 

29-30 Control card count (number of 
local control cards) for For- 
tran programs only. 

*31-32 sps subroutine set identification 
number ( e.g., 00 = fixed-length 
divide subroutine for machines 
not equipped with the Automat- 
ic Divide feature, etc.). 

*33 N (Noise) digit for sps subrou- 
tines. 

* 34-35 Two digits for indicating length 
of mantissa for sps subroutines. 
* Required only when the program to be executed uses 
other than the standard operating specifications (02 
standard subroutine set, standard N digit, 08 stand- 
ard mantissa length). 

=}=4= (End-of-Job). 

Columns 1-2 =f==i= (identification record 
marks ) . 

3-4 Operation (4=4=> end-of-job). 
Comments Records 

Comments records — in card, paper tape, or typewriter 
form — can be used to specify operating instructions 
and identify each job. Any number of these records may 
be inserted in front of a job in the stacked input. Usually 
they are inserted behind a job Monitor Control record. 
Comments records, unlike Monitor Control records, 
have no control over the Supervisor. When Comments 
records are encountered in the stacked input, they are 
typed out. The format of the Comments record in terms 
of cards follows: 

Columns 1-2 4=4= (identification record 
marks ) . 

3-6 Operation (blanks or any com- 
bination of letters and/or digits 



other than the eleven monitor 
pseudo operation codes, job, sps, 
spsx, etc.). 
7-80 Comments. 
When the Supervisor Program reads a Comments 
card, it will pass subsequent cards until another card 
with 4=4 : > columns 1-2, is encountered. Therefore a 
Comments card should be followed by another Com- 
ments card or a Monitor Control card. 

Module Change Numbers 

Module change numbers, punched in card columns 8-11 
of the job Monitor Control cards, can be used on 1620 
Systems with more than one 1311 Disk Storage Drive to 
alter the normal assignment of disk storage drives for 
any job. For example, a job that uses drive in the exe- 
cution of its program could use drive 1 instead of drive 
by the entry of a job Monitor Control card with the ap- 
propriate module change numbers. 

Card columns 8, 9, 10, and 11 of the job card repre- 
sent disk storage drives 0, 1, 2, and 3, respectively. A 
change to the normal program assignment of a disk stor- 
age drive is made by punching the number of the sub- 
stitute drive into the card column which represents the 
normal drive. Therefore, in the preceding example, a 
digit 1 would be punched into card column 8 to alert 
the program that drive 1 should be used for the job in- 
stead of drive 0. Card columns 9, 10, and 11 could be left 
blank because only the assignment changes must be 
punched. The assignment of disk storage drives, placed 
in effect by a job card, remains in effect until changed 
by a succeeding job card. If the system is redefined to 
use more than one drive, a job card with module change 
numbers punched in columns 8-11 must be entered be- 
fore the additional drives will be accepted by the Super- 
visor program. 

To overlap the time required to change disk packs for 
one job with the processing time for a different job, the 
operator may choose to alternate the use of disk storage 
drives from one job to the next. Alternating drives is 
possible only when all drives are not in use for any one 
job. For example, assume that job A is to be followed by 
job B in the stacked input and the programs for both of 
these jobs use disk storage drives and 1. Assume fur- 
ther that four disk storage drives are available to the 
1620 System that is to perform these jobs. By entering a 
module change number in the job Monitor Control card 
for job B, the operator can use disk storage drives 2 and 
3 for job B in place of drives and 1. Therefore, while 
job A is being done, the operator could mount the disk 
packs for job B on drives 2 and 3, thus saving valuable 
operating time. The job card module change numbers 
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should be punched 
Card columns 





8 


9 


10 


11 


numbers 


2 


3 







so drives 2 and 3 will be used in place of drives 
and 1, respectively, for job B. 

Disk Pack Identification Numbers 

Card columns 12-31 of the job Monitor Control card 
can be punched with the four 5-digit disk pack identi- 
fication numbers, one identification number for each 
disk storage drive. 

Disk Pack Disk Storage 

Identification Number Drive 



Card columns 12-16 
17-21 
22-26 
27-31 



The disk pack identification number from the job 
card is compared with the identification numbers re- 
corded on the respective disk packs. If the proper 
disk packs are not attached by the operator, the 
Supervisor will halt for operator instructions. If it is 
desired to omit this check for any disk storage drive, 
the card field representing the disk storage drive may 
be left blank. When the operator enters a module 
change number, no change to the disk pack identi- 
fication numbers (card columns 12-31) is required. 



Stacked Input 

Stacked input consists of control records (Monitor, 
Disk Utility Program, sps, and Fortran), source pro- 
grams, object programs, and data arranged logically 
by job. Each job consists of phases which must fit into 
one of four categories: 

1. sps source program(s) to be assembled. 

2. Fortran source program(s) to be compiled. 

3. Disk Utility routine(s) to be executed. 

4. Fortran or sps object program(s) to be called 
from disk storage with subroutines and executed; 
or sps program(s) to be called from disk storage 
without subroutines and executed. 

The order in which jobs are executed is not impor- 
tant, i.e., a Disk Utility routine may be executed be 
fore a Fortran compilation or vice versa. Jobs are 
executed in the order in which they are encountered 
in the stacked input. Each job must be preceded by a 
job Monitor Control card and followed by an end-of- 
job ( =j= #= =h 4= ) Monitor Control card. 

Job Arrangement 

A Disk Utility, Fortran or sps job is always represent- 
ed by at least three Monitor Control records. 



Card 

1. job Monitor Control 
Record 

2. dup, SPS, SPSX, FOR, 
forx, xeq, or XEQS, 
Monitor Control 
record 



Purpose 

Identify beginning of 
job. 

Transfer control to Disk 
Utility Program, For- 
tran compiler, sps As- 
sembler, user's object 
program. 
Identify end of job. 



3. End-of-job Monitor 

Control record. 

In addition to the Monitor Control records, there 
may be one or more Disk Utility Program, sps or 
Fortran system control records. These records are a 
part of the input for the individual system. 

type or paus Monitor Control records may be insert- 
ed immediately preceding any of the records in the 
above sequence. Any number of Comments records 
may be inserted in front of type 2 records. Source 
programs or input data can be entered immediately 
following type 2 records. 

The following three points must be taken into con- 
sideration when arranging the input for any job. 

1. All Monitor Control records, with the exception 
of Monitor records that follow a type Monitor 
Control record, must be read from the same in- 
put source. The input source can only be chang- 
ed at the beginning of each job or by a type 
Monitor Control record. 

2. A job, with the exception of a Disk Utility job. 
may consist of several system functions possibly 
terminated by execution of a user's program. Ex- 
ecution of a user's program is considered as the 
end-of-job. If any cards remain in the stacked 
input for a job when it is ended in this manner, 
they will be passed without processing. Process- 
ing resumes with the first Monitor Control card 
of the next job in sequence. 

3. If an error is detected in an sps assembly or 
Fortran compilation, the resulting object pro- 
gram or any programs that follow within the job 
cannot be executed. 

Examples of stacked jobs are given in Figure 4 and 
Figure 5. In these examples: 

Job A assembles two sps source programs and stores 
the assembled programs in disk storage. The second 
sps program is executed after assembly. This job in- 
cludes Comments cards to instruct the operator and a 
paus Monitor Control card to allow the operator to 
intervene and change program switch settings. 

Job B compiles and executes a Fortran source 
program. 

Job C replaces an existing object program in disk 
storage with a new object program and copies a pro- 
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gram from disk-to-disk. Job C calls a program from 
disk storage with subroutines and executes it. 

Monitor Control Record Analyzer Routine 

This routine, a part of the Supervisor Program, is used 
to read the Monitor Control records and Comments 



records, which are identified by 4= 4= m columns 
1-2, and to analyze these records, and to perform the 
operations or transfer control as directed by the 
pseudo operation codes. The first Monitor Control 
record is read from the input source that is specified 
by the* operator when the Supervisor Program is orig- 
inally loaded into core storage from disk storage to 



U * PAUS Monitor' 



jr. * 4- t Monitor 
(End of Job) 



*DATA FORTRAN 
Control Record ' 



Source Program 



'FORTRAN Control 
Record 



$ i FORX Monitor 



$ t PAUS Monitor 



+ Comments 



* * J03 Monitor 



$ % £ * Monitor 
(End of Job) 



Data 



Source Program 



*SPS Control 
Records 



# \ SPSX Monitor 



* * PAUS Monitor 



\ X Comments 



Source Program 



*NAME PAYROL 



*STORE CORE IMAGE 



'OUTPUT CARD 



"NOISE DIGIT 7 



♦SUBROUTINE SET 1 



| 4 SPS M onitor 



$ $ PAUS Monitor 



+ % Comments 



$ $ JOB Monitor 



J 



Job "B" 



y 



SPS Control 
Records 



Job "A" 



Figure 4. Stacked Input, SPS and FORTRAN Jobs 
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start the entire operation. Subsequent Monitor Con- 
trol records and Comments records are read from the 
same input source until a job Monitor Control record 
changes the input source by specifying a different 
"source of input" or a type card is encountered. Read- 
ing of Monitor Control records continues from the 
new source until again changed by another job Moni- 
tor Control record. 

When the input source is the "typewriter," the 
Monitor Control Record Analyzer routine types the 
message 

ENTER MONITOR CONTROL RECORD 

The operator may then enter the next control rec- 
ord. The record is not typed out if the entry is made 
by the typewriter. 

If the operator makes a mistake while entering the 
record, he may correct the error by turning on Pro- 
gram Switch 4 and depressing the R-S key on the 
typewriter. Switch 4 should then be turned off and 
the entire record re-entered. 

When an sps, spsx, for, forx, dup, xeq, or xeqs 
Monitor Control record is read, control is transferred 
from the Analyzer routine to the individual program 
specified by the control record. Control is returned to 
the Analyzer routine after the program is executed. 
When control is returned, the Analyzer routine will 
pass records, provided the input source is other than 
the typewriter, until a Comments or Monitor Control 
record is encountered in the stacked input. Therefore, 
the last job to be executed should be followed by a 
type or paus control card. If this control card is not 
present, the 1620 will stop on a Read Select instruc- 
tion, expecting another control card. 

ERROR MESSAGES 

During execution of the Monitor Control Record 
Analyzer routine, certain error messages may be 
typed. After typing a message, the 1620 will stop if 
any operator action is required. A list of these mes- 
sages, the conditions which cause them, and the cor- 
rective actions required of the operator, follows. 



Message 

Cause 
Action 



ERROR IN FIELD AT COL. XX. 
SET SW4 TO IGNORE, OFF TO 
RE-ENTER CARD 
An illegal character has been de- 
tected in a job Record data field. 
To ignore the error turn Program 
Switch 4 on and depress the Start 
key. The message "CONDITION 
IGNORED" is typed and process- 
ing continues. To correct the error, 



Message 

Cause 
Action 



Message 
Cause 



Action 
Message 

Cause 

Action 

Message 
Cause 

Action 

Message 

Cause 



Action 



turn Program Switch 4 off and de- 
press the Start key. The Monitor 
Control record input source will be 
changed to the typewriter, and the 
operator may then re-enter the 
control record. If it is desired to 
read succeeding records from the 
original input source, column 7 
must identify the input source. 
PACK NUMBER. ERROR ON 
MODULE X. SET SSW4 TO IG- 
NORE OFF TO RECOMPARE 
Disk pack identification numbers 
compare "unequal." 
To ignore the error, turn Program 
Switch 4 on and depress the Start 
key. The message "CONDITION 
IGNORED" is typed and process- 
ing is resumed. To correct the er- 
ror, place the correct disk packs on 
the disk drives and depress the 
Start key. The disk pack identifica- 
tion number will again be checked 
by the program. If the pack 
involved was a Monitor pack, the 
instruction sequence previously de- 
scribed under operation must be 
repeated. 
END OF JOB 

The end of a job has been reached. 
( This message will not be typed, if 
the input source is the typewriter. ) 
None required. 

CANNOT RESTORE COMMON 
-RESET AND START TO RE- 
TRY 

Common area does not read into 
core storage from disk storage 
correctly. 

Depress Reset and Start keys to re- 
try the read operation. 
EXECUTION 

Loading and execution of user's 
object program has started. 
None required. 
JOB CARD GROUP ONLY 
Control Record Analyzer routine is 
expecting a job, type, or paus 
Monitor Control record, but it does 
not find one. 

Enter job, paus, or type, Monitor 
Control record from typewriter and 
depress the Release and Start keys. 
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Message 
Cause 

Action 



Message 
Cause 



ERROR IN FIELD AT COLUMN 
XX. PHASE TERMINATED 
A Monitor Control record contains 
an invalid code in the field start- 
ing at column xx. 

The phase is skipped and the su- 
pervisor will pass records from the 
control record source until it en- 
counters the next Monitor Control 
record. 

EXECUTION IS INHIBITED 
An error has occurred within a job 
which may prevent successful ex- 



Action 

Message 
Cause 

Action 



ecution of the user's object pro- 
gram. 

None required. No user object pro- 
gram can be executed until the 
next job Monitor Control record 
is encountered. 

OBJECT DIM ERROR PHASE 
TERMINATED 

The Supervisor is unable to find 
the dim entry specified by an xeq 
or xeqs control record. 
None required. The phase in which 
the error occurred is terminated 
and processing continues. 




Figure 5 Stacked Input, DUP and XEQS Jobs 
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Message 
Cause 



Action 

Message 

Cause 

Action 



OBJECT NAME ERROR PHASE 
TERMINATED 

The Supervisor is unable to find a 
name in the Equivalence table 
which corresponds to the name 
supplied in an xeq or xeqs control 
record. 

None required; the phase is termi- 
nated. 

ENTER MONITOR CONTROL 
RECORD 

A "4= 4= type" Monitor Control 
record has been encountered. 

Enter a Monitor Control record 
from the typewriter. (Monitor in- 
put source is changed to the type- 
writer. ) 

SYSTEM DIM ERROR PHASE 
TERMINATED 

Supervisor is unable to find dim 
entry for sps assembler, Fortran 
compiler, or Disk Utility Program. 

None required; the phase is termi- 
nated. 



Message 
Cause 

Action 
I/O Routine 

The I/O routine is designed to relieve programmers 
of the necessity for writing input/output subroutines. 
The I/O function is performed automatically by the 
I/O routine. Therefore, the programmer can concen- 
trate on describing his files and disregard the actual 
operation of the I/O function. Provision is also made 
in this routine for error detection and correction. If 
Parity, Wrong-Length Record Check, or Address 
Check disk errors occur in a disk operation, the routine 
will repeat the operation which had the error, up to 
nine times, in an attempt to correct the error. The 
Monitor System uses this routine for I/O operations. 

The I/O functions performed by the I/O routine 
include reading and punching cards or paper tape, 
reading or writing typewriter, reading or writing disk 
records, and seeking disk cylinders. These functions 
may be used in an sps object program by entering 
I/O macro-instructions (get, put, seek, or call) in 
the user's source program. These macro-instructions, 
as well as the associated declarative statements for de- 
fining declarative constants (dtn, dta, etc.), are de- 
scribed in the section concerning sps ii-d. 



All linkages for I/O routines are generated auto- 
matically through the use of macro-instructions in 
sps source programs or the I/O statements (e.g., find, 
record, fetch, punch, read, etc.) in Fortran 
source programs. The data and addresses supplied in 
a macro-instruction or the parameters in a Fortran 
statement are incorporated into the linkage instruc- 
tions where they are made available for use by the 
I/O routine. 

Each time the I/O routine is entered as the result 
of an sps macro-instruction or Fortran statement, 
the read, write, and parity check indicators are turn- 
ed off. If a read or write error occurs that cannot be 
corrected without operator intervention, an error 
message is typed and the program halts. A restart 
procedure is specified for all error conditions (see i/o 
error routine). An error count is maintained by the 
I/O routine for inspection by the user or for diagnos- 
tic analysis by an ibm Customer Engineer. 

In addition to using the I/O routine with sps macro- 
instructions and Fortran statements, the routine may 
be used by coding the general form of I/O routine 
linkage directly in the user's program. 

I/O Routine Linkage 

General Form. 

TFM IORT, * + 23 

B ENTRY, DEF, 7 

iort is the address (00565) of a 5-position stor- 
age area in the I/O routine. 

entry may be any one of the four possible entry points 
in the I/O routine represented by the following 
symbolic addresses: 



Actual 
Entry Point Address 
IORBC 00520 



Function 



Write record into disk stor- 
age with Read-Back 
Check. 

IOPT 00532 Write a record to an out- 

put device. 

IOSK 00554 Seek a disk record. 

IOGT 00566 Read a record from an in- 

put device. 

def can be the address of any I/O declarative con- 
stant ( see i/o CONSTANTS ) . 

CALL LINK or CALL LOAD Linkage. These link- 
ages are usually used to call programs from disk stor- 
age, with or without execution. Linkages may be in 
either a short or long sequence form. Both forms are 
alike with the exception that the long sequence form 
contains a relocation address. 
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Short Sequence 






TFM 


IORT, * 


+ 19 


B7 


IOCAL 




DC 


1, Mo 




LIU 






or r 


1, Mi 




DSC J 






DSC 


1,0 




DC 


5, IIII @ 




Long Sequence 






TFM 


IORT, * 


+ 19 


B7 


IOCAL 




DC 


1, Mo 




DC ^ 






or r 


1, Mi 




DSC J 






DC 


1,0 




DC 


4, IIII 




DSA 


LLLLL 




DSC 


1,@ 





iocal is an entry to the I/O routine (core storage 
address 00716). 

M Mi is a constant 32 for call linkages, Mi is flag- 
ged for call link only. 

im is the dim entry number of the program to be 
called. 

lllll is the relocation core storage address where the 
program is to be loaded. 

If the short sequence is used to call a relocatable 
program, lllll is assumed by the I/O routine to be 
the address contained in the "high" indicator field of 
the Communications Area. If the long sequence is 
used to call a core image program, the I/O routine 
wall disregard lllll. 

CALL EXIT Macro-Instruction Linkage. 

B7 MONCAL 

moncal (core storage address 00796) is an entry 
to the I/O routine which will call in the Monitor 
Control Record Analyzer routine. 

call exit linkage is used at the end of the execution 
of an object program to return control to the Moni- 
tor Control Record Analyzer routine to read another 
Monitor Control record. If, during execution of an 
object program, an error is encountered which will 
not allow normal exit to the Analyzer routine, the 
operator may manually branch the program to 
moncal (00796) to resume processing. 



I/O Constants 

An I/O constant for card, paper tape, or typewriter 
consists of eight digits. 

CCCCC M« Mi 4= 

ccccc is the address of an I/O area. 
M„ Mi is one of the following codes which identifies 
the operation: 

00 Typewriter Numerical 

02 Paper Tape Numerical 

04 Card Numerical 

06 Typewriter Alphameric 

t)8 Paper Tape Alphameric 

10 Card Alphameric 

Disk I/O constants may be in any of the following 
four forms: 

1. M Mi DDDDD 4= 

2. M Mx DDDDD LLLLL 4= 

3. Mo Mi Till LLLLL 4= 

4. Mo Mi 011114= 

ddddd is the address of the leftmost position of the 
associated disk control field. 

lllll is a relocation core storage address of a pro- 
gram to be called. 

Tin is the dim entry number of a program to be called. 

Mo and Mi provide various disk options for the user. 
A list of these codes and their associated options 
follows. 

M (code) Option 

Add the starting address of the 

work cylinders from the Com- 
munications Area (core positions 
422-425) to the sector address 
in the disk control field. (Used 
with constant types 1 and 2 
only. ) 

1 Same as option zero, except the 

"high'mdicator in the Commu- 
nications Area will also be up- 
dated for disk read operations 
only. This indicator is merely a 
field which contains the core 
storage address of the highest 
position to be loaded plus one. 

2 Use the sector address in the disk 

control field for the disk opera- 
tion (seek, read, or write). 
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3 Use the sector address in the disk 

control field for the disk opera- 
tion. Also, update the "high" in- 
dicator in the Communications 
Area for read operations only. 

n A flag over the code n, (n = 0, 1, 2, 

or 3) causes the read/write 
heads to be repositioned to an 
assigned cylinder (specified in 
the Communications Area) after 
any disk I/O operation, except 
seek. 

Mi (code) Option 

Disk read or write in sector mode 

with wlrc. Note: The user must 
place a group mark (^) in the 
core storage location following 
the last character position of the 
last sector of the record. 

2 Disk read or write in sector mode 

without WLRC. 

4 Disk read or write in track mode 

with wlrc. note: The user must 
place a group mark (^) in the 
core storage location following 
the last character position of the 
last sector of the record. 

6 Disk read or write in track mode 

without WLRC. 

n A flag over code n(n = 1, 2, 4, 

or 6) causes the I/O routine to 
branch to a given address after 
a disk read operation. The given 
address will be the "execution 
address" if an extended disk 
control field is used. Otherwise, 
it will be the "core address" of 
the disk control field. If code n 
is unflagged, the I/O routine 
will branch to the first instruc- 
tion following the disk opera- 
tion calling linkage in the object 
program. If the entry address is 
not specified, the entry is made 
to the (possibly relocated) first 
card address of the deck to be 
loaded. 

DISK CONTROL FIELD 

The disk control field, associated with I/O constants, 
types 1 and 2, may be in either of the following for- 



mats: 

DDDDDD SSS CCCCC =j= 
DDDDDD SSS CCCCC EEEEE 4= 

dddddd is the first sector address of the data or pro- 
gram. 

sss is the number of sectors to be read or written. 

ccccc is the core address (must be an even-numbered 
address) of the data or program. 

eeeee is the execution address where program execu- 
tion is to continue after a disk read operation is 
completed. The second disk control field, known as 
an extended disk control field, is used when Mi of 
the I/O constant is flagged. 

Card I/O 

Cards are read or punched in alphameric or numer- 
ical form from a user-specified constant (generated 
from an I/O declarative statement) designated in 
general linkage. If a punch error is detected during 
a write instruction, the instruction is again executed 
to correct the error. If the error persists or a parity 
error occurs during a write operation, an error mes- 
sage is typed and the program halts (see 1/0 error 
routines). Error messages will be typed for all read 
errors. 

Typewriter I/O 

A specified I/O declarative constant designated in 
general linkage will be used by read or write type- 
writer instructions (alphameric or numerical). If a 
read error or a parity error occurs during reading, the 
program will branch back to the read instruction and 
await entry of data. The operator can then type in the 
data and return control to the program. If a parity 
error or write check occurs during writing, it will be 
counted and the indicators will be turned off — but 
the program will not halt. Control operations (rcty, 
spty, tbty ) are not executed in the I/O routine. These 
must be handled in the main program coding. 

Paper Tape I/O 

Paper tape is read or punched in alphameric or nu- 
merical form from a specified I/O declarative con- 
stant designated in general linkage. If a parity read 
error occurs during a read operation, an error message 
is typed and the program halts. 

Disk Storage I/O 

Disk storage will be read or written as specified by 
the I/O declarative constant designated in general 
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linkage. Also, disk seek operations will be initiated to 
disk addresses contained in the I/O declarative con- 
stant designated in general linkage. For a call macro- 
instruction, disk data records or programs will be 
written in the area of core storage designated by the 
relocatable address in call linkage. If this address is 
not present for a relocatable program, the processor 
selects the address. If the relocation address is present 
but the program is not relocatable (i.e., it is in either 
Absolute or Core Image format), the relocation ad- 
dress is ignored and the program is stored at the core 
address specified by the dim entry. 

Disk storage indicators are reset by the I/O rou- 
tine. If the Cylinder Overflow indicator (38) is turn- 
ed on before the sector count reaches zero, a seek to 
the next cylinder is initiated and reading or writing 
is resumed. If read, write, or parity indicators, or in- 
dicators 36 or 37 are turned on, the instruction associ- 
ated with the error will again be executed up to nine 
times. If the error persists, an error message is typed 
and the program halts. 

The seek only linkage 

TFM IORT, * + 23 
B IOSK, DEF, 7 

will allow computing time and seek time to overlap. 
def refers to any disk I/O constant. 

The cylinder location of the arm on each drive is 
entered into a list by the I/O routine. Every time the 
I/O routine executes a disk operation, the current 
entry cylinder is compared to the previous cylinder 
and the arm is instructed to seek only if it is not al- 
ready located at the current cylinder. 

REPOSITIONING OF ACCESS ARMS 

The I/O routine contains four 2-digit cylinder indi- 
cators that can be used to reposition the access arm 
on each of the four possible disk drives to a new 
cylinder following a read or write operation. The four 
cylinder indicator core storage locations and their 
associated drives follow: 



Indicator Addresses Drive 
00512 - 00513 
00514 - 00515 1 
00516 - 00517 2 
00518 - 00519 3 



These indicator positions are reset to 00000000 by 
the Monitor Control Record Analyzer routine. There- 
fore, a program which uses other cylinders for re- 
positioning must provide for changing the indicators. 

Repositioning the access arm following a get or 
put macro-instruction is optional. If m of the I/O 
constant used by a get or put is flagged, the read/ 
write heads will be repositioned. 



FULL TRACK OPERATION 

If any I/O operation is to be attempted with the 
Write Address light on, the programmer must set a 
flag at oldda -f- 14 (core position 00455) before en- 
tering the I/O routine. The flag will prevent accumu- 
lating error counts (which is a write disk sector oper- 
ation ) . The flag must be cleared before terminating 
the routine in which the Write Address light "on" 
condition is present. 

If an I/O operation is attempted with the Write 
Address light on, no flag present at oldda -f 14, and 
an indicator 06, 07, 16, 17, 36, 37, or 38 on or turned 
on by the I/O operation, the program will stop with 
the instruction at 00728. To save the error count, the 
operator must (1) turn the Write Address light off, 
(2) depress the stop/sie key, (3) turn the Write 
Address light on, if desired, and (4) depress the Start 
key to resume automatic operation. 



I/O Error Routine 

Each time the I/O routine begins execution, it tests 
indicator 19 ( any check ) to determine if an error had 
occurred prior to entry. If the indicator is on, the I/O 
error routine will be called into core storage and ex- 
ecuted. This routine records a count of errors by type 
(for indicators 06, 07, 16, 17, 36, 37, and 38), and pro- 
vides the necessary error messages and corrective op- 
erating options. In addition the error routine turns 
off the individual indicators (06, 07, 16, 17, 36, 37, and 
38), by testing them. 

After an I/O function is executed, indicator 19 is 
again tested. If it is on, the I/O error routine is en- 
tered to process the error. 

Error Detection and Correction 

During execution of the I/O error routine, error mes- 
sages are typed to describe errors and the operator is 
allowed to intervene to decide how errors should be 
treated by the program. A list of error correction 
options available to the operator follows. 

Error Correction 

Code Option 
00 Ignore the error. When this option 

is used, the I/O routine will fin- 
ish processing the I/O operation 
as though the error had not oc- 
curred. 

05 Re-execute the I/O operation. If 

an error recurs during the next 
execution, an error message is 
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again typed, the computer stops, 
and the operator can exercise the 
same option or another option. 

10 Skip this phase of the job if error 

occurs at system time (sps as- 
sembly, Fortran compiling, Disk 
Utility Program, or Supervisor 
Program execution time ) and re- 
turn control to the Monitor Con- 
trol Record Analyzer routine and 
pass records to the next Monitor 
Control record. 

15 Discontinue execution and return 

control to the Monitor Control 
Record Analyzer routine and pass 
records to the next job Monitor 
Control Record. 

20 Continue processing by branching 

to a specified core storage ad- 
dress without further processing 
of the I/O request. When this 
option is exercised, the operator 
enters the 5-digit branch address 
from the typewriter. 

After each error message is typed, the computer 
halts. The operator then depresses the Start key, en- 
ters a 2-digit error correction code from the type- 
writer, and depresses the R-S key to resume pro- 
cessing. 

If an error is made while entering a 2-digit cor- 
rection code, it may be corrected by turning Program 
Switch 4 on, depressing the typewriter R-S key, turn- 
ing Program Switch 4 off, and re-entering the 2-digit 
code. 

The I/O error routine has the facility to handle any 
of the following errors. 

Entry Check 
Typewriter write 
Typewriter read 
Paper tape write 
Paper tape read 
Card write 
Card read 
Cylinder overflow 
Write error count 
Illegal dim entry 
System 

Unavailable disk drive 
Control record trap 

Error messages, conditions, and corrective operator 
action associated with each type of error is described 
as follows: 



Entry Check: If indicator 19 (any check) is on, 
when tested in the preprocessing phase, the message 

ENT ERROR 06071617363738 

is typed on the console typewriter. Each pair of in- 
dicator numbers is flagged in the leftmost digit. If an 
indicator was on when tested, the rightmost digit 
will also be flagged. 

Typewriter Write: For this error, no error message 
is typed; however, the error is automatically indicated 
by over-printing the error characters ) with a hori- 
zontal line. 

Typewriter Read. For this error, the message 
TYP ERR XXXXX 0607M7363738 
is typed, where XXXXX is the 5-digit return address to 
the calling program, and the indicators are as de- 
scribed for ENT ERROR. To restart the computer, the 
operator exercises one of the error correction options. 

Taper Tape Write. For this error, the message 

PTP ERR XXXXX 06071617363738 
is typed, where XXXXX and the indicators are as 
described above. To restart the computer, the operator 
should exercise one of the error correction options. 
Paper Tape Read. The message 

PTR ERR XXXXX 06071617363738 
is typed, where XXXXX and the indicators are as de- 
scribed above. The operator must backspace the tape 
to the beginning of the record before exercising error 
option 05. 

Card Write. For this error, the I/O error routine 
retries the operation once for a write check error ( indi- 
cator 07). If the error is corrected by the retry, con- 
trol is returned to the I/O routine; if the error is not 
corrected, the message 

CDP ERR XXXXX 06071617363738 
is typed, where XXXXX and the indicators are as de- 
scribed above. The error option can then be exer- 
cised by the operator. 

Card Read. For this error, the I/O error routine 
retries the operation once for a read check error 
(indicator 06). If the error is corrected by the retry, 
control is returned to the I/O routine; if the error is 
not corrected, the message 

CDR ERR XXXXX 06071617363738 
is typed, where XXXXX and the indicators are as de- 
scribed above. The error option can then be exercised 
by the operator. 

Cylinder Overflow. For this error, the I/O error 
routine tests to determine if a legitimate overflow has 
occurred during a disk read or write operation. For 
a legitimate overflow, a seek operation to the next 
cylinder is automatically initiated and reading or writ- 
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ing continues. A maximum of three seek operations 
will be performed if sufficient core storage is available 
to accommodate the data being read or written. 

If the disk read or write operation results in an at- 
tempt to read or write data beyond the highest sector 
address of the addressed disk module, the message 

DSK OFL 

is typed. All error correction options, except 05, are 
available to the operator. If 05 was inadvertently en- 
tered, it would have the same effect as error correc- 
tion option 00. 

For a disk error, which is other than a legitimate 
overflow, the disk read or write operation causing the 
error is retried up to nine times; if this fails to cor- 
rect the error, the message 

DSK ERR XXXXX 6607l6l7363738 
is typed, where XXXXX is the 5-digit return ad- 
dress to the object program. A flag is typed over the 
leftmost position of each pair of indicator numbers. 
The indicator (s) which identifies the type of error 
will also be flagged in the rightmost position. If indi- 
cator 38 is flagged in its rightmost position, it may 
mean either of two things: 

1. A legitimate overflow did occur, but another 
type of error occurred in attempting to trans- 
mit data to or from the succeeding cylinder. 

2. A machine malfunction occurred. 

If the operator exercises error correction option 05, 
but this does not correct the error, he should turn the 
Disk, Parity, and I/O Check switches to stop, and 
again exercise option 05. The console lights may then 
be examined to determine the nature of the error. 

If a legitimate cylinder overflow condition occurs, 
a seek operation to the next cylinder is automatically 
initiated and reading or writing continues. 

Write Error Count. If an error occurs while the I/O 
error routine is writing the error count in disk stor- 
age, the message 

BAD DISK WRITE, RESET START 
will be typed. In this case, the operator does not 
exercise an error correction option, but he must: 

1. Clear the Select-Lock light, if it is on. 

2. Depress the Reset and Start keys. 

Illegal DIM entry. If the user supplies an illegal 
dim number (not in dim table) in a call statement, 
the I/O routine will transfer control to the I/O error 
routine and the message 

MAP ERR XXXXX IIII 
is typed, where xxxxx is the core storage position im- 
mediately following the call linkage, and mi is the 
illegal dim entry number. The operator then enters 



error correction code 00 and depresses the Release 
and Start keys. The computer will again halt. The 
operator must then type in a corrected 4-digit dim 
entry number and depress the Release and Start keys. 

System. If the I/O error routine cannot interpret 
the nature of the error, the message 

IMP ERR 

is typed and control is returned to the Monitor Control 
Record Analyzer routine without stopping to allow 
operator intervention. 

In addition to the system error just described, the 
computer may halt in the I/O routine at core storage 
address 00467 without typing a message. This halt 
occurs if a read error occurs while the I/O routine is 
reading one of its subroutines from disk storage. To 
retry the operation, the operator should 

1. Clear the Select-Lock light if it is on. 

2. Depress the Reset and Start keys. 

If this error persists, it may mean either of two things. 

1. The user inadvertently altered the I/O routine 
in core storage. 

2. A machine malfunction occurred. 

Unavailable Disk Drive. If the programmer speci- 
fies a logical module for which there is no physical 
disk storage drive, the message 

MOD ERR XXXXX 
is typed, where xxxxx indicates the return address to 
the object program. The operator must enter the error 
correction code 00 and depress the Release and Start 
keys. The computer will again halt. The operator 
must then enter a corrected 1-digit drive code and 
depress the Release and Start keys to continue. 

Illegal Drive Code. If the user gives an illegal drive 
code in thr; disk control field for a disk operation, the 
message MOD ERR XXXXX 

is typed, where xxxxx is the 5-digit return address 
to the object program. To continue, the operator 
should enter an error correction code 00 and depress 
the Release and Start keys. The computer will halt 
to allow the operator to enter a corrected 1-digit 
drive code from the typewriter. Depress the Release 
and Start keys to resume operation. 

Control Record Trap. To prevent the I/O routine 
from inadvertently reading a control record as a data 
record, the I/O routine is designed to trap control 
records, if they are read from the Supervisor input 
source. Each record read is tested for 4= 4= m its first 
two positions. If present, control is transferred to the 
I/O error routine and the message 

TRP ERR 

is typed. If the control record was read in numerical 
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mode and it was not an end-of-job record ( ^^^^ ) > 
an additional message is typed: 

MUST RELOAD 

The operator then depresses the Start key and re- 
enters the record. The Monitor Control Record Ana- 
lyzer routine assumes control and processes the trap- 
ped control record. If the control record was read in 
alphameric mode, it is processed in the normal man- 
ner by the Supervisor. 



Programs are sequence checked as they are loaded 
if input is from cards. This check is performed on the 
last five digits of each input record. If any records 
are out of sequence, an error message is typed and 
the operator is allowed to intervene to correct the 
sequence error. Patch cards may be interspersed with 
other cards of an object program to be loaded. 

The sequence number of card input appears in 
columns 76-80. Sequence numbers start with 00001 
and must have a flag over their leftmost position in 
order to be sequence checked. 



Error Count Retrieval Routine 

Each time an error is detected by the I/O error rou- 
tine, an error count is incremented by one. An error 
count is maintained for each of the following error 
indicators: 

06 Read Check 

07 Write Check 

16 mbr-e Check 

17 mbr-o Check 

36 Address Check 

37 WLR-RBC 

38 Cylinder Overflow 

The error counts can be typed out and reset to 
zeros by entering the following instructions and data 
from the typewriter: 

34 00032 00701 
36 00032 X0702 
49 00070 

11975400100046 (disk control field) 

X is the drive code for the Monitor I System. 

The Release and Start keys are depressed to start 
the operation. The seven indicator counts are then 
typed in sequence in 14 consecutive positions with 
a flag over the leftmost position of each count. 

XX XX XX XX XX XX XX 
The error counts are reset to zeros after the typeout. 



Loader Routine 

The Loader routine, a part of the Supervisor Program, 
is used to load user's object programs into core stor- 
age from cards, paper tape and disk storage. To per- 
form the loading function, the Loader routine is called 
into core storage whenever an object program is to 
be loaded into core storage. The user's object program 
could be any program in System Output format. 



System Output Format 

The general format in which Fortran ii-d and sps ii-d 
object programs will be outputted to paper tape, disk, 
and cards is shown below: 



Columns 1-5 
6 

7-8 
9-75 
76-80 



Address of data. 
Indicator code. 
Length of data. 
Data, indicator codes, etc. 
Sequence number. 



Patch cards should be prepared in the same format. 
However, the sequence number must be all zeros 
without flags. All patch cards must precede the card 
that defines the end of a relocatable program (see 
indicator code 6). The entries shown above are de- 
scribed as follows: 

Note: The descriptions given here will be in terms of 
cards; however, paper tape and disk formats will be 
the same with the exception of the sequence number. 

Address of Data — This entry will always refer to 
the location where the first digit of data on the card 
is to be loaded. This entry will appear in columns 
1 through 5 of a reloadable card. The address is an 
absolute address, i.e., no relocation increment (pre- 
suming this program is relocatable) has been added 
yet. 

Indicator Code — This 1-digit entry is used to either 
define the type of data that is to follow or to con- 
vey certain loading instructions to the loader. There 
are thirteen different indicator codes that may be 
used; some are applicable to sps ii-d only (see indi- 
cator codes). 

Length of Data — This field is used in conjunction 
with certain indicator codes (1, 2, 2, 3, 3, 4, 4) to 
specify how many digits of data are to follow. With 
other indicator codes, this field becomes part of a 
larger field and assumes a different role. 
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Data — This field contains actual data to be loaded, 
Data may be instructions* constants, etc., depend- 
ing upon the indicator code. All instructions for re- 
locatable programs will contain flags over O , Oi 
of the operation code to specify if the P and Q ad- 
dresses, respectively, should be incremented by the 
relocation address. If patch cards are prepared, 
these flags must be punched for addresses to be 
adjusted. Instructions of programs in absolute for- 
mat must not be flagged. 

INDICATOR CODES 

Although the output format is shown divided into 
specific fields, these same fields do not always make 
up the columns that are indicated. As will be seen 
by the descriptions of the various indicator codes, the 
format varies considerably as the type of data on the 
card changes. 
The indicator codes are described as follows: 

Note: Those codes marked with an asterisk are used 
in sps ii-d output only. 

4= — This digit indicates that a change is being 
made in the sequence of loading addresses 
for the program. The five digits that follow 
the record mark denote the new address or 
origin. After the 5-digit address, there will 
be another indicator code to define the data 
that follows. 

4= — This digit is used whenever the data that 
follows is an instruction or relative address 
which cannot be fully contained before the 
seventy-fifth column of the card has been 
reached. 

* — This digit is used when a tra-tcd declara- 

tive combination is assembled in any re- 
locatable sps program. The five digits that 
follow the zero constitute a branch address 
for entrance to a routine. 

* — This digit is used in the same manner as 

above, except the flag denotes an sps pro- 
gram with absolute addresses. 

1 — This digit indicates that the data to follow 

after the "length of data" field are instruc- 
tions. 

2 — This digit indicates that the data following 

the "length of data" field are constants that 
are to be relocated. 

2 — This digit indicates that the data following 
the "length of data" field are constants that 
are not to be relocated. 



3 — This digit indicates that the data following 
the "length of data" field are relative ad- 
dresses to be relocated. 

*■ 3 — This digit indicates that the data following 
the "length of data" field are relative ad- 
dresses that are not to be relocated. 

* 4 — This digit is used to supply numeric blanks 

when a relocatable program is loaded. The 
2-digit "length of data" field following the 
indicator specifies how many numeric blanks 
are desired. Thus a 412 will cause twelve 
numeric blanks to be inserted into core stor- 
age when loading. 

* 4 — This digit is used in the same manner as 

the digit 4 above except that the flag indi- 
cates the program is in "absolute" form. 

6 — This digit indicates the end of a relocatable 
program. In sps ii-d, the five digits immedi- 
ately preceding a 6 or 6 (described below) 
will be the number of core positions needed 
for this program. In sps or Fortran, the 
card that follows a card containing a 6 or 6 
will contain five 9's in columns 1-5. 

* 6 — This digit indicates the end of an "absolute" 

program. 

EXAMPLE 

The first 35 columns contain the following: 

01012112490036600000=#01019205004284: 

Columns 36 through 75 are blank and columns 76-80 
contain 00101. 

Explanation 
Column Contents Description 
1-5 01012 Loading address of first in- 

formation. 



6 



7-8 12 



Code indicating the follow- 
ing information is an instruc- 
tion. 

Length of the following in- 
formation. 



9-20 490036600000 The information to be loaded, 
which is a Branch instruction 
with a relocatable P field. 



21 



22-26 01019 



Code indicating a change in 
the loading address se- 
quence. 

Loading address of the fol- 
lowing information. 



28 
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28-29 05 



30-34 00428 



35 



Code indicating the follow- 
ing information to be loaded 
is a relocatable constant. 

Length of the following in- 
formation. 

The information to be loaded, 
which is a relocatable con- 
stant. 

Code indicating nothing fur- 
ther is to be loaded from 
this card. 



76-80 00101 



Sequence number. 

With a relocation factor of 14000 the above data 
would be loaded starting at 15012 as 491436600428. 

Error Messages 

If an error occurs during execution of the Loader rou- 
tine, an error message will be typed and the 1620 will 
stop to await operator action. A list of error messages, 
the conditions which cause them, and the corrective 
action required, follows. 

Message - XXXXX LD1 (XXXXX is the sequence 
number of the last card read in correct se- 
quence) . 

Cause — Card sequence error. 

Action — Correct the order of input cards, starting 
with the card following XXXXX, and place them 
in the card reader. Depress the Start key. 

Message — LD2 

Cause — Card read error. 

Action — Reread card by depressing the Check 
Reset and Start keys on the card read punch. 

Message — LD 3 

Cause — Disk read error. 

Action — Depress Start key and retry. 

Message — LD 4 

Cause — Disk read error while reading Loader rou- 
tine into core storage. 
Action — Depress Start key to retry. 



Monitor I System Communications Areas 

Core storage positions 402 through 439 and disk sector 
19663 are reserved for use by the Supervisor Program, 
sps assembler, Fortran compiler, Disk Utility Pro- 
gram, and other programs as common communica- 



tions areas. The Communications Areas are automat- 
ically established when the Monitor I system is load- 
ed. Changes to the communications areas are made 
as specified by control records (see dfine control 
card ) or by the Supervisor program itself. Care should 
be taken by the user, so that the communications 
areas are not inadvertently altered. A description of 
each of the fields in the core storage and disk sector 
communications areas follows. 



Core Storage Area 

Core Storage 
Positions 



402-421 



422-425 



426 



427 



428 



429 



Description 

A 20-digit dim entry or a 14-digit 
disk control field being used by 
the I/O routine, Disk Utility Pro- 
gram, or other programs. 

Starting address of work cylinder. 
Only the four leftmost positions 
of the sector address are given. 
This address will be 1000 (with 
the flag) unless changed by a 
dfine control card. 

Source of sps or Fortran source 
program input, 
1 — typewriter. 
3 = paper tape. 
5 = card. 

If this position is flagged, loading 
resumes after a tcd at core stor- 
age address 00000. If unflagged, 
loading resumes at the core stor- 
age address specified by posi- 
tions 435-439 of this Communi- 
cations Area. 

Source of object program being 
loaded, 

3 = paper tape. 
5 = card. 
7 = disk. 

A flag in this position indicates that 
a dend type entry starts execu- 
tion of the object program. No 
flag indicates that a tra-tcd type 
entry starts execution of the ob- 
ject program. 

Source of monitor control input, 
1 = typewriter. 
3 = paper tape. 
5 = card. 
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A flag is present in this position if 
library subroutines are to be 
called with sps or Fortran ob- 
jects programs. 

430-434 "High" indicator, i.e., the core stor- 

age address of the highest posi- 
tion to be loaded plus one. 

435-439 Address where loading is resumed 

following an sps tra statement. 
This address will always be one 
of the following: 00000, 00075, 
00150, or 00225. 



Disk Sector Area (Sector 19663) 



Disk Sector 
Positions 

00-19 
20-21 
22 



23 

24-35 

36-39 
40-41* 

42-43' 



Description 

dim entry used by I/O routine and 
Supervisor program. 

Not Used. Available for use by the 
1620 user. 

indicates that the program to be 
loaded into disk storage is in 
core image format; 1 indicates 
that the program to be loaded 
into disk storage is in relocatable 
format. 

indicates card output; 1 indicates 
paper tape output. 

Six-character alphabetic name of 
user's source program to be load- 
ed into disk storage after as- 
sembly. 

Four-digit dim entry number of 
user's source program to be load- 
ed after assembly. 

Two digits (xx) indicating length 
of mantissa for sps subroutines. 
( Standard mantissa length is 08. ) 

Two-digit sps subroutine set identi- 
fication number. (Standard set 
number is 02.) 



These items are the systems standards. See Define 
Parameters under Disk Utility Program. 



44 * N (noise) digit for sps subrou- 

tines. (Standard N digit is 0.) 

45-46* Two digits (ff) indicating length 

of mantissa for Fortran sub- 
programs. (Standard mantissa 
length is 08.) 

47-48* Two digits (kk) indicate Fortran 

fixed-point word length (04 
standard length). 

49 Digit indicates number of disk 

storage drives available to the 
Monitor System. 

50-72 Supervisor Program indicators. 

73 Source of input, other than disk, 

for Fortran subprograms (from 
dfine control record; 5 is stand- 
ard, 3 = paper tape, 5 — card ) . 

74-75 Number of control cards for For- 

tran at load time. 

76 Object machine core size (from 

dfine control record; 1 when 
system is delivered). 

77 N (noise) digit for sps subroutines 

(from Noise Digit control rec- 
ord ) . 

78-79 Mantissa length for sps subrou- 

tines ( from Mantissa Length con- 
trol record ) . 

80-81 sps subroutine set identification 

number (from Subroutine Set 
control record). 

82 Fortran A and I/O subroutine set 

numbers ( from forx or xeqs con- 
trol record). 

83* Fortran A and I/O standard sub- 

routine set number (from dfixe 
control record; 1 when system is 
delivered ) . 

84-88 First core storage address of a re- 

locatable object program. 

89-93 Computed relocation address of a 

relocatable object program. 

94-98 Card sequence number. 

99 A record mark (=j=)- 
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Disk Utility Program 



In every data processing installation there are certain 
operations that must be performed frequently. These 
operations may differ in detail, depending on the 
user's particular machine configuration and data for- 
mat, but essential functions remain the same. Because 
of their frequent use, the burden of programming 
these operations can become a costly, time-consuming 
task. Therefore, there is a need for generalized 
routines which will satisfy specific functions and allow 
the user the flexibility of assigning the specifications 
for his particular problem. 

The generalized routines, provided by ibm Pro- 
gramming Systems, described in this publication, are 
grouped under the heading Disk Utility Program. 
They are designed to assist the user in the day-to-day 
operation of his installation. By means of these rou- 
tines, certain frequently required operations, such as 
loading or unloading disk storage (data or programs) 
from cards or paper tape, etc., can be performed with 
minimum programming effort by the user. 

The routines described in this publication are: 

1. Write Addresses. This routine writes sector ad- 
dresses on a disk pack as specified by the user. 
Data on the disk pack can be replaced by zeros 
or left unchanged. 

2. Alter Sector. This routine uses the typewriter to 
change data in a sector of disk storage. In most 
cases, only the digits to be changed must be 
typed. 

3. Disk-to-Output. This routine unloads disk stor- 
age containing data or programs into cards, 
paper tape, or on the typewriter. 

4. Load Programs. This routine loads one or more 
programs from cards or paper tape to disk stor- 
age at either a specified address or an address 
selected by the load routine itself, and checks 
for an overlap of previously stored programs. 

5. Replace Programs. This routine implements the 
changes or additions necessary to update a pro- 
gram on disk storage. Input can be in either card 
or paper tape form. 

6. Disk-to-Disk. This routine copies data or pro- 
grams from one area of disk storage to another. 

7. Delete Programs. This routine effectively deletes 
programs from the system by deleting their 
associated dim entries and Equivalence table 



entries without actually removing the programs 
themselves. 

8. Define Parameters. This routine redefines certain 
essential parameters of the 1620 Monitor I Sys- 
tem. 

9. Define Disk Pack Label. This routine writes the 
"label sectors" ( first and last sectors, cylinder 99 ) 
and establishes a Sequential Program table on a 
disk pack. It can be used to initialize new disk 
packs. 

10. Define FORTRAN Library Subroutine Name. 
This routine generates an entry in the Equiva- 
lence table for fortpan subroutines that have 
multiple entries. Thus, a name can be assigned 
to all entries in a subroutine. 

Each routine can be entered and executed by 
means of control records read by the Disk Utility 
Program. In addition, the routines are used by 
both sps ii-d and Fortran ii-d to output as- 
sembled programs into cards or paper tape and 
to load and replace programs in disk storage. 

The Equivalence table, dim table, and Sequential 
Program tables are used and modified by the Disk 
Utility Program in the execution of its routines. These 
tables are updated automatically for each disk stor- 
age change when the user adds, deletes, or replaces 
a program. Entries are created in the tables whenever 
a new program is loaded to disk storage. 

Operation 

The Disk Utility Program, a self-loading program, is 
loaded into disk storage along with the other pro- 
grams that make up the Monitor I System. When a 
dup Monitor Control card (4=4= DUP m cai "d columns 
1-5) is recognized by the Supervisor Program, the 
Disk Utility Program will take control and select the 
appropriate Disk Utility routine as identified by the 
next card in seqence, which should be a Disk Utility 
Program Control card. This card is identified by an 
asterisk in card column 1. Card columns 2-6 contain 
a code word to identify the Disk Utility routine de- 
sired: such as, Alter Sector, Load Programs, etc., and 
the remaining card columns provide additional con- 
trol information to be used by the Disk Utility routine 
itself. The user supplies the control information which 
describes the function he desires. Because the control 
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information for each type of Disk Utility Program 
Control card is different, the format of each is describ- 
ed separately in the separate routine descriptions. 
After the execution of a Disk Utility routine is com- 
pleted, control is returned to the Monitor Control 
Record Analyzer routine. 

A dup Monitor Control card, as well as a Disk Utili- 
ty Program Control card, is required each time a Disk 
Utility routine is to be executed. These cards are 
stacked with the other input cards to be processed by 
the Monitor I System. This stacked input may be in 
card or paper tape form or it may be entered from 
the typewriter. 

If the code word contained in a Disk Utility Pro- 
gram Control card is not one of the ten legitimate 

Codes ( DWRAD, DALTR, DDUMP, DLOAD, DREPL, DELET, 

dfine, dcopy, dlabl or dflib) an error mes- 
sage will be typed and the computer will halt. This 
message will be comprised of the data from the con- 
trol card and a constant, err control. When the 
Start key is depressed, the Disk Utility routine will 
return control to the Monitor Control Record Analyzer 
routine which will pass all cards until the next Moni- 
tor Control card is reached. 

If the control record is entered from the typewriter, 
the message 

ENTER DUP CNTRL REC 

is typed and the computer halts. The user may then 
enter the next Disk Utility Control record from the 
typewriter and depress the R-S key to continue pro- 
cessing. Records are entered in the alphameric mode 

The Disk Utility Program uses the I/O routine of 
the Supervisor Program to perform its I/O functions 
Therefore, error messages associated with that rou- 
tine will be typed if an I/O error occurs. The I/O 
error messages, as well as operating options for I/O 
errors, are described under, i/o error routine, in the 
Supervisor Program section. 

Whenever a Disk Utility routine is instructed by a 
control record to write read-only flags with sector 
addresses, the message 

DUP * TURN ON WRITE ADDRESS KEY, START 

is typed and the program halts. The operator should 
turn on the Write Address key (to allow read-only 
flags to be written) and depress the Start key to con- 
tinue processing. After the program has been com- 
pletely loaded, the message 

DUP * TURN OFF WRITE ADDRESS KEY, START 
is typed and the program again halts to allow the 



operator to turn off the Write Address key. 

Whenever a program of less than 200 sectors is 
assigned to disk by any Disk Utility routine, 
it will always be placed in consecutive sectors of one 
cylinder. However, a program can be assigned by the 
user, to any available disk storage area as described 
under load programs routine.. Programs as large as 
999 sectors long can be processed by the Disk Utility 
Program. 

After a program is loaded to disk by any Disk 
Utility Program routine, the message 

DK LOADED AAAAAA IIII DDDDDD 
SSS CCCCC EEEEE #= 

is typed to inform the user about the assigned dim 
entry. 

aaaaaa is the assigned program name, rai is the as- 
signed dim entry number and the remainder of the 
message is the dim entry itself. 



Write Addresses Routine 

The Write Addresses routine is used to write sector 
addresses on a disk pack. Addresses may be written 
with or without read-only flags over the leftmost 
positions. Data positions of each sector may be 
changed to zeros or left unchanged. 

When the Write Addresses routine is executed, 
the Write Address key must be turned on. The mes- 
sage: 

DUP * TURN ON WRITE ADDRESS KEY, START 

is typed to signal the operator to turn the switch on. 
After the routine has been executed, the message: 

DUP * TURN OFF WRITE ADDRESS KEY, START 

is typed to signal the operator to turn the switch off. 
The format of the control card follows. 



Control Card (DWRAD). 



Columns 



1 

2-6 
7-12 



17 



18 



Asterisk ( * ) 
Code word, dwrad. 
Disk sector address where 
writing is to start (seek ad- 
dress ) . 

Letter P if read-only flags 
are to be written over ad- 
dresses; otherwise leave 
blank. 

Letter Z if data positions 
are to be changed to zeros; 
letter S if data positions are 
to remain unchanged. 



32 



21-26 Address to be written at sec- 
tor where writing is to start. 

27-32 Final address to be written. 

When the dwrad Control card is read, control is 
transferred to the Write Addresses routine and the 

message 

WRITE AND SAVE 

SEEK START STOP 
XXXXXX XXXXXX XXXXXX 

or the message 

WRITE AND ZERO 

SEEK START STOP 
XXXXXX XXXXXX XXXXXX 

is typed to allow verification of control record data 
and the computer is halted. (Note that the second 
form of the message indicates that sector data posi- 
tions are to be changed to zeros.) Six X's indicate the 
respective seek, start, and stop addresses. Depressing 
the Start key causes execution of the routine. The 
routine seeks the disk sector address specified in 
columns 7-12. The address specified in columns 21-.26 
is written in that sector; the address is then increment- 
ed by one and written in the next sector. Writing 
continues in this manner until the incremented ad- 
dress is equal to the final address (columns 27-32) 
and the final address has been written. 

If the program is unable to find the starting address 
(columns 7-12), or any address that should be on the 
specified track in disk storage, an error message ER 
SK XXXXXX will be typed. XXXXXX is the disk 
address on the last sector examined when no equal 
comparison could be made with the sector addresses 
that should be on the track that has been read. In 
addition, the 20 sector addresses fjom the selected 
track will be typed and the program will halt. When 
the Start key is depressed, control is returned to the 
Monitor Control Record Analyzer routine to read the 
next Monitor Control record. 



Alter Sector Routine 

This routine allows the user to alter the data in any 
selected sector of disk storage. The sector data to be 
changed is typed out. All, or selected portions of the 
sector may then be updated. After the changes have 
been made, the old and the new data are typed out 
for visual comparison and verification. If the changes 
are satisfactory, the new data is stored on the disk 
pack. As many sectors as desired may be altered each 



time this routine is used. Control is transferred to 
the Alter Sector routine when the control card is read. 

Control Card (DALTR). 

Columns 1 Asterisk ( * ) 

2-6 Code word, daltr. 

After the control card is read, the message 

SECTOR 

is typed and the program halts. 

The operator types in the 6-digit address of the 
sector to be altered and depresses the Release and 
Start key. If more or less than six digits are typed, 
the message 

SECTOR ADDRESS ILLEGAL, 
START TO RE-ENTER * DALTR 

is typed and the machine halts. Pushing the Start key 
will restart all operations on the given sector. The 
routine reads the sector and types it out in the fol- 
lowing format. 

1st Half xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx ORIGINAL 
2nd Half xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx xxxxxxxxxx ORIGINAL 

Note that the two halves of the sector are identified by 
the phrases, "1st Half" and "2nd Half," respectively. 
(Typewriter margins must be at least 70 spaces apart 
to permit this format. ) 

Each group of ten characters is assigned a section 
number by the routine. The first five groups are as- 
signed numbers 01-05; the last five groups are assigned 
numbers 06-10. After the sector data is typed out, the 
routine requests the number of the section in which 
the first change will be made. 

The message typed out is shown below: 

SECTION 

The user now types in one 2-digit section num- 
ber between 01 and 10. After depressing the Release 
and Start key, the message 

SECTION NUMBER ILLEGAL, 
START TO RE-ENTER * DALTR 

is typed if the section number is greater than 10. If 
the section number is correct (between 01 and 10), 
the selected section is typed out for verification as 
shown below. 

XXXXXXXXXX TYPE CHANGE 

The changes can now be entered directly under 
the typed section. If a particular character does not 



Disk Utility Program 33 



require changing, an "x" may be typed under that 
character, or the character itself may be retyped- 
Although only one section is typed out for any one 
selection, succeeding sections may be altered by con- 
tinuing to type changes. Spacing is optional except 
that the number of characters ( including spaces ) can- 
not exceed 100. Spaces (alpha blanks) will not be- 
come part of the sector data. For example, assume that 
section 3 is selected and is typed out as shown below: 

3574246798 

The operator desires to make some changes in section 
3 and section 4. For this example, the typewritten 
page may look like this: 

3574246798 TYPE CHANGE 
XXX7625X82 75234XX479 

Typing may be terminated as soon as the last digit 
to be changed is typed; that is, if the fifth digit in 
section 4 (previous example) is the last change, the 
last five digits of section 4 do not have to be typed in. 

If the user does not type changes but simply de- 
presses the Release and Start key, the message 

CORRECTIONS HAVE NOT BEEN ENTERED 

is typed and the computer will halt on a read alpha- 
meric instruction to allow the user to enter the 
changes. 

If more digits are entered than the sector can con- 
tain, the message 

TYPE-IN EXCEEDS SECTOR LENGTH, START 

is typed. Depressing the Start key allows the operator 
to begin again and enter a new sector address. Spaces 
are optional and do not become part of the sector 
data; however, they are counted toward the maximum 
allowable number of characters which is 100. 

After all changes have been made, the operator 
depresses the Release and Start key. The routine then 
types out the original sector data along with the 
changes that were typed in. The output appears as 
shown below: 



1st Half 1234567890 1234567890 3574246798 8654213212 0987654321 ORIGINAL 

ls» Half 1234567890 1234567890 3577625782 7523413479 0987654321 CORRECTED 

2nd Holf 7265417623 0176421432 8543217290 5482797654 8243176521 ORIGINAL 

2nd Half 7265417623 0176421432 8543417290 5482797654 8243176521 CORRECTED 



At this point the routine will again type the word 
SECTION 

If other changes must be made, the operator enters 
a new (or possibly the same) section number and de- 
presses the Release and Start key. The section change 
routine is now repeated. When all the changes prove 
satisfactory, the operator enters a record mark instead 
of a section number and depresses the Release and 
Start key. The routine then writes the updated sector 
back on the disk pack and types the message 

DISK SECTOR DDDDDD CORRECTED 

dddddd is the sector address that was selected to be 
changed. The routine then branches to the part of 
the routine that types the message "sector" to allow 
the user to choose another sector address and change 
another sector. 

When all desired sectors have been altered, this 
routine is concluded by typing a record mark instead 
of a sector address after the word sector has been 
typed out. This will cause control to be returned to 
the 1620 Supervisor Program, which will read another 
1620 Monitor I control statement. 



Operating Notes 

When the routine is ready to accept the new data 
(after the section number is typed in), it positions 
the console typewriter in the "alphameric shift" mode. 
Therefore, typing numerical data requires the opera- 
tor to manually shift into numerical mode. 

Flagged digits 1-9 may be inserted by typing the 
corresponding alphabetic letters J-R. Flagged zeros, 
numeric blanks, flagged record marks, and flagged 
group marks may be entered by using minus ( — ) key, 
@ key, W key, and G key, respectively. Alpha blanks 
(spaces) do not become a part of the sector data. 



Disk-to-Output Routine 

The Disk-to-Output routine transfers data from se- 
lected portions of disk storage to cards, paper tape, 
or the typewriter. This routine enables the user to 
preserve original records before they are updated or 
changed, thus providing an audit trail. The card or 
paper tape output will be in numerical form and will 
contain record marks and group marks. Numerical 
blanks result in blank card columns. 
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This routine can be used to obtain any of the fol- 
lowing items of output as directed by the user. 

1. Program or data identified by name. 

2. Program or data identified by dim number. 

3. Data between sector limits. 

4. dim table. 

5. Equivalence table. 

6. Availability list (extracted from Sequential Pro- 
gram table). 

7. Sequential Program table. 

The routine is executed whenever a ddump control 
card is read by the Disk Utility Program or wherever 
a Fortran compilation or sps assembly requires 
punching into cards or paper tape. 

The Disk-to-Output routine can be used to trans- 
mit any number of disk sectors to cards, paper tape, 
or typewriter. Transmission will start with the first 
sector specified in a dim entry or with a beginning 
sector specified by the user. Transmission will end 
when the sector count in the dim entry reaches zero 
or when a specified ending sector is found. The out- 
put following compilation or assembly is terminated 
by a "9's" trailer record. The trailer record format is 
five 9's followed by a record mark, 69 zeros and a 
sequence number. This record always follows all sps 
and Fortran object programs. During execution of 
the Disk-to-Output routine, resulting from dup control 
records, error messages 01, 04, 06 or 20 may be typed 
(see error detection and correction). 

The control card used to transfer control to the 
Disk-to-Output routine is punched in the following 
format. 



18 Identify output 

I — D i s k Identification 
Map (dim). 

E = Equivalence table 

A = Avalability entries 
from the sequential pro- 
gram table from the 
disk module specified 
by column 19 (typed 
output only). 

S — Entire sequential 
program table from the 
disk module specified 
by column 19. 

M Program identified 
by columns 7-12 or 13- 
16 of this card. 

L = The sectors between 
limits as specified by 
columns 21-26 and 27- 
32 of this card. 

19 Module number (0, 1, 2, or 
3) to be used if output 
options S or A are exercised 
(see column 18 above). 

21-26 Beginning disk storage ad- 
dress of output (lower lim- 
it). 

27-32 Ending disk storage address 
of output (upper limit). 



Control Card (DDUMP). 

Columns 1 Asterisk (*). 

2-6 Code word, ddump. 

7-12 Alphabetic name of pro- 
gram or data to be punched 
or typed (same name that 
appears in Equivalence 
table). 

13-16 dim entry number of pro- 
grams to be punched or 
typed. (If the letter M is 
present in column 18, either 
a name or dim entry num- 
ber must be present, but 
both need not be present. ) 
17 Output device, 
C = card 
P — paper tape 
T = typewriter 



Output Format 

CARD 

Each 300 positions of disk storage (three sectors) 
will be punched into four successive cards; 75 columns 
of disk data followed by a five-column sequence num- 
ber in each card. When 2 sectors are to be outputted, 
3 cards are punched. When 1 sector is outputted, 2 
cards are punched. Therefore, all disk data is punched 
from 1 or 2 sector outputs. 

A special trailer card containing 9's in columns 1-5, 
a record mark in column 6, zeros in columns 7-75, and 
a sequence number in columns 76-80 will be punched 
following the last output card. This record is used to 
terminate loading when the output is reloaded by the 
Load Programs routine or Replace Programs routine. 
If the output deck is reloaded by the Load Programs 
routine or Replace Programs routine, the trailer card 
must remain behind the deck for control purposes. 
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The 9's trailer record will load into the work cylinders 
along with the balance of the data; however, the 
trailer record will not require extra disk storage posi- 
tions if the data is moved to another disk location. 
If the output is a program to be reloaded by the 
loader routine, the entire program must be outputted. 
The System Output Loader routine requires an entire 
program, with all of its indicator codes, in order to 
operate. 

When either the dim table or Equivalence table is 
punched out, they will be in a loadable format; i.e., 
alphameric characters will be in 2-position alpha- 
meric coding form. 

PAPER TAPE 

This output will be in standard loadable format, i.e., 
it may be reloaded to disk storage by the Replace 
Programs routine. The output will be identical to the 
card format described above, except that the sequence 
number will not be punched with paper tape records. 
The last output sector will be followed by a trailer 
record for control in the event that the output is re- 
loaded into disk storage. 

TYPEWRITER 

With the exception of the Availability list and Equiva- 
lence table, all typewriter output will be in a standard 
format. Each 100-character sector will be typed on 
two lines as shown below. 



J 

JOOj 

Li 

!2°j 



Availability Lists. Availability lists are typed as 
follows : 

AAAAA 

BBBBB CCCCC 
BBBBB CCCCC 
BBBBB CCCCC 

aaaaa is the disk pack identification number. 
bbbbb is the starting disk address of an unused area 
of storages. 

ccccc is the ending disk address for the unused area. 
These entries, one per line, are extracted from the 



Sequential Program table by the Disk-to-Output 
routine. 

Equivalence Table. Equivalence tables are typed 
in the following format With five entries per line. 



NNNNNN lltl NNNNNNIIII NNNNNN Mil NNNNNN MM NNNNNN Mil 
NNNNNnIiII NNNNNN Till NNNNNNMII NNNNNN Till NNNNNN llll 



nnnnnn is the alphameric name. 

fin is the dim entry number. Available Fortran library 
entries will appear as RRRRRR 9999 in place 
of NNNNNN IIII. 



Load Programs Routine 

The Load Programs routine is used initially to load 
sps ii-d or Fortran ii-d object programs from the 
working cylinders or programs previously dumped 
by the Disk-to-Output routine, from cards or paper 
tape into disk storage. Overlap of occupied areas of 
disk storage is prevented by the routine. Programs 
cannot be loaded in the work cylinders with this 
routine. Programs will be loaded into areas of disk 
storage selected by the routine itself, if the user 
does not specify a storage area preference. If the 
routine selects the storage area, it will always store 
the program on a single cylinder, without overlapping 
cylinders, unless it is longer than an entire cylinder. 
If the user selects the storage area, it will be stored 
in the selected area regardless of cylinder overlap 
conditions. 

This routine provides the following program load- 
ing options. 

1. A name may be assigned to the program and 
placed in the Equivalence table. 

2. A dim entry may be assigned to the program. 

3. The disk storage location can be specified and 
permanently assigned ( fixed ) . 

4. An entry address (execution address) can be 
assigned in the dim entry to the program. 

5. Read-only flags can be written in the sector ad- 
dresses. 

6. The disk storage location for the program can be 
specified by cylinders ) without causing perma- 
nent assignment. Thus, several associated pro- 
grams can be assigned to the same cylinder or 
group of cylinders by the user without actually 
specifying sector addresses. 
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7. Programs in either core-image or system output 
formats can be loaded; and programs in system 
output format can be converted to core image 
while loading. 

It is possible, by exercising option 3, to permanently 
assign the sectors where the program is to be loaded 
in disk storage. This capability is provided in this 
routine only. When using this option, any programs 
already in the specified load area, but not permanently 
assigned, will be moved. The overlapped program 
is moved to the area which immediately follows the 
new program. If this in turn would result in additional 
overlapping of other programs, the process of moving 
programs continues until available space is found. 
If any program, . in this move, is a permanently 
assigned program, or contains read-only flags in its 
sector addresses, no programs are moved and the 
new program will not be loaded. 

A program is considered immovable if it is either 
permanently assigned by the Load Programs routine 
or if it contains read-only flags in any of its sector 
addresses. Permanently assigned programs can be 

1. Deleted by the Delete Programs routine. 

2. Copied by the Disk-to-Disk routine. 

3. Changed by the Alter Sector routine. 

4. Dumped into card or paper tape or printed on 
the typewriter. 

5. Read for any purpose with normal read com- 
mands. 

However, a permanently assigned program will not 
be moved in disk storage by the Disk Utility Program. 

Programs being loaded can be "file protected" by 
writing read-only flags over the disk addresses of the 
storage sectors. All loading options are indicated by 
the control card. 



Control Card (DLOAD). 



Columns 



1 

2-6 
7-12 



17-20 



21-26 



Asterisk (*) 
Code word, (dload). 
Alphabetic name (left-justi- 
fied) of program to be load- 
ed into disk storage. 
A dim entry number to be 
given the program to be 
loaded. (This number will 
not be used by the routine 
if it is already assigned to 
another program.) 
Beginning disk sector ad- 
dress in the work cylinders 
that contains the program to 
be permanently loaded. The 
first digit of the sector ad- 
dress selected must be 1, 3, 
5, or 7. 



27-32 Ending disk address in the 
work cylinders that contains 
the program to be perma- 
nently loaded. The first digit 
of the sector address select- 
ed must be 1, 3, 5, or 7. 

33-38 Assigned disk storage ad- 
dress of the program to be 
loaded. (If this address is 
included, the program will 
be permanently assigned to 
the given address. ) The first 
digit of the sector address 
selected must be 1, 3, 5, or 7. 

39-43 Core storage address for a 
program that is placed in 
disk storage in core-image 
format. This address will be 
placed in the CCCCC por- 
tion of the associated dim 
entry. 

44-48 Entry address (address of 
the first instruction to be ex- 
ecuted) for a program that 
is being loaded. This address 
is placed in the EEEEE por- 
tion of the associated dim 
entry. This address is used 
for reading programs from 
disk in core-image format 
with the I/O routine. 

49 Input device, 

C = card 
P = paper tape. 
D = disk storage work 
cylinders. 

50 Letter I, if program to be 

loaded is in Core 
Image format. 
S, if program to be 
loaded is in Sys- 
tem Output for- 
mat. 

M, if program to be 
loaded is in Sys- 
tem Output for- 
mat, and it is to be 
converted to Core 
Image format be- 
fore loading t o 
disk storage. 

51 Letter P, if read-only flags 
are to be written over disk 
addresses of storage sectors; 
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otherwise leave blank. 
52-54 Beginning cylinder (three 
digits XYY, where X is the 
module, 0, 1, 2, or 3, and YY 
is the cylinder number 00- 
99) to define lower limit 
where program can be load- 
ed. 

55-57 Ending cylinder (three dig- 
its XYY, where X is the 
module 0, 1, 2, or 3, and YY 
is the cylinder number 00- 
99) to define upper limit 
where program can be load- 
ed. (Note that both the 
upper and lower limits will 
be ignored by the routine 
if columns 33-38 of this card 
are punched. ) 
60 Any non-blank Character, if 
program to be loaded is a 
Fortran or sps object pro- 
gram which requires sub- 
routines. 



Replace Programs Routine 

The Replace Programs routine is used to replace pro- 
grams in disk storage with updated, changed, or new 
programs. Programs can be loaded to a disk storage 
area from cards, paper tape, or from another assigned 
disk storage area. In addition to loading disk stored 
programs, identified by dim entries, programs can be 
loaded from work cylinders. 

A program can be given another name in the Equiv- 
alence table by reloading the program over its original 
assigned disk area using a different name. The pro- 
gram can then be called by either name since both 
names are maintained in the Equivalence table. 

With this routine, it is possible to load a program 
to itself adding read-only flags to the disk addresses. 
A permanently assigned program in disk storage can- 
not be replaced by this routine. To replace a perma- 
nent program, ( 1 ) delete the program with the Delete 
Programs routine and, (2) load the replacement pro- 
gram with the Load Programs routine. 

The format of the control card for this routine fol- 
lows. All fields are optional with the exception of 
columns 1-6, 17-20, and 49. 

Control Card (DREPL). 

Columns 1 Asterisk (*). 

2- 6 Code word, drepl. 

7-12 Alphabetic name of pro- 



gram. 

13-16 The dim entry number 
which identifies the program 
to be loaded if the program 
is from another assigned 
disk storage area. (The pro- 
gram to be loaded will be 
deleted from its original disk 
storage location.) 

17-20 The dim entry number 
which identifies the program 
to be replaced. 

21-26 Beginning disk sector ad- 
dress if the program to be 
loaded is in the work cylin- 
ders. The first digit of the 
sector address selected must 
be 1, 3, 5, or 7. 

27-32 Ending disk sector address 
if the program to be loaded 
is in the work cylinders. The 
first digit of the sector ad- 
dress selected must be 1, 3, 
5, or 7. 

39-43 Core storage address for a 
program that is to be placed 
in disk storage in core-image 
format. This address will be 
placed in the CCCCC por- 
tion of the associated dim 
entry. 

44-48 Entry address (address of 
the first instruction to be 
executed) for a program 
that is being loaded. This 
address is placed in the 
EEEEE portion of the asso- 
ciated dim entry. 

49 Input device, 

C = card. 

P = paper tape. 

D = disk storage. 

50 Letter I, if program to be 

loaded is in Core 
Image format. 

S, if the program to 
be loaded is in 
System Output 
format. 

M, if program to be 
loaded is in Sys- 
tem Output for- 
mat, and it is to 
be converted to 
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core image format 
before loading to 
disk storage. 
Letter P, if read-only flags 
are to be written 
on disk addresses 
of storage sectors; 
otherwise leave 
blank. 

Any non-blank character, if 
program to be loaded is a 



Fortran or sps object pro- 
gram which requires sub- 
routines. 



Disk-to Disk Routine 

This routine can be used to copy data or programs in 
disk storage to any available (unoccupied) disk stor- 
age area including the work cylinders. A program to 
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be copied should be specified by a dim entry, an al- 
phabetic name that is in the Equivalence table, or a 
sector address given by the user. The program cannot 
be copied into an area which is already identified by a 
dim entry number, except the work area (dim entry 
0001). Read-only flags may be written with the disk 
sector addresses of the copy, except in work cylinders, 
at the option of the user. When this routine is used, 
the dim table and the original program remain un- 
changed. It is not possible to copy a program over a 
portion of that same program. It is not possible to 
copy a program into the work cylinders if that pro- 
gram exceeds the work cylinder limits. Data can be 
copied from one portion of the work area to another; 
however, no check will be made for overlapping of 
data within the work area. If a program or data 
to be copied is less than 100 sectors, there is no dan- 
ger of overlap. 

If any read-only flags are encountered in sector 
addresses within the copy area, an I/O routine error 
message is indicated. The program will be copied up 
to the point of the error. 

The options offered by this routine are identified 
in the control card that follows. 



Control Card (DCOPY). 

Columns 1 Asterisk (*) 

2-6 Code word, dcopy. 

7-12 Alphabetic name of program to 
be copied. 

13-16 The dim entry number which 
identifies the program to be 
copied. 

21-26 Beginning sector address of pro- 
gram or data to be copied. 

27-32 Ending sector address of pro- 
gram or data to be copied. 
(Note that the beginning and 
ending sectors will always be 
used if present. ) 

33-38 Beginning disk sector address 
of the new copy. This address 
must be that of work cylinders 
or available disk storage. This 
field must always be punched. 

51 Letter P, if read-only flags are 
to be written on disk sector ad- 
dresses at the new location of 
the program; otherwise leave 
blank. 

The sectors that are to contain the copy must not 



have read-only flags in the sector address initially or 
an error will be indicated and copying will be termi- 
nated. 

After the data is successfully copied, the message 

NNNNN SECTORS OF DATA 

COPIED FROM XXXXXX TO YYYYYY 

is typed, where nnnnn specifies the number of 
copied sectors and xxxxxx and yyyyyy are the be- 
ginning sector addresses of the From and To areas, 
respectively. If the copied data is written with read- 
only flags, an additional message is typed. 

AND FILE PROTECTED 

To move a program or data from one disk area to 
another, it should be: ( 1 ) copied to the work cylinders 
from the original area, (2) deleted from the original 
area, and ( 3 ) loaded to the new area from the work 
cylinders. This can be accomplished by using the 
Disk-to-Disk, Delete Programs, and Load Programs 
routines, in that order. A *dcopy control record is used 
to copy the program into the work cylinders; a *delet 
control record is used to make the original storage area 
available by deleting its dim entry and Equivalence 
table entry; and a *dload control record is used to 
load the program to a specified sector address and to 
generate the new dim entry and Equivalence table 
entry. 



Delete Programs Routine 

This routine can be used to delete a program and its 
associated dim entry, Sequential Program table entry, 
and Equivalence table entry (if any) or entries 
(where the program has more than one name) from 
disk storage. When a program is deleted, read-only 
flags will be removed and programs in successively 
higher disk storage positions will not be moved up 
to fill the vacated storage area. 

The format of the control card follows. 

Control Card (DELET). 

Columns 1 Asterisk ( * ) 

2-6 Code word, delet. 
7-12 Alphabetic name of program to 
be deleted (same name that ap- 
pears in Equivalence table). 
13-16 dim entry number of program 
to be deleted. ( Note that either 
a Name or dim entry number 
must be present, but not both. ) 
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Define Parameters Routine 

This routine can be used to alter the assignment of work 
cylinders, dim table, Equivalence table, Sequential Pro- 
gram table, or certain system specifications in the Sys- 
tem Communications Area for the Monitor I System. 
The dim table may be lengthened or shortened, but may 
not be moved from cylinder 24. The Sequential Program 
table may be shortened, but must remain on cylinder 
99. The Equivalence table may be lengthened or short- 
ened. It will always immediately follow the dim table, 
even if the dim table is altered in length. This routine 
can also be used to indicate that more than one disk 
storage drive is to be used with the 1620. 

When the size of the dim table is changed, the Equiv- 
alence table will be moved to immediately follow the 
dim table. When redefinition of an area (work cylin- 
ders, dim table, or Sequential Program table) is at- 
tempted, the area must be available; i.e., it must not 
be occupied by programs with assigned dim entries. If 
an area is unavailable, it will not be redefined and the 
message 

DUP * ERROR 08 

will be typed. 

The normal assignment of disk storage for the above 
mentioned tables is as follows. 



Description 
Work Cylinders 
dim table 
Equivalence table 
Sequential Program table 



Cylinder 
Assignment 
00^23 
24 

25 ( first eighty sectors ) 
99 ( second through 
eighty-first sector) 

To make any of the allowable alterations to these as- 
signments, or to the system specifications, the user must 
enter a control card containing the new parameters. 
Only the parameters to be changed need to be punched 
in the control card. The parameters from a control card 
are processed from left to right by the routine. If any 
parameter is invalid, those parameters to its right will 
not be processed. 

Control Card (DFINE). 



Columns 



1 

2-6 
7-12 



14-16 



18 



Asterisk(*). 
Code word, dfine. 
Beginning disk sector address of 
work cylinders (must be first ad- 
dress of a cylinder). 
Number of cylinders to be re- 
served for work cylinders (11 
minimum, 99 maximum ) . 
Number of disk storage drives on 
system (1-4). This must be de- 



fined before the user attempts to 
reassign the work cylinders to any 
disk drive other than the first. 

20-22 Number of sectors to be reserved 
for dim table (35 minimum, 999 
maximum ) . 

24-26 Number of sectors to be reserved 
for Equivalence table (9 mini- 
mum, 999 maximum). 

28-30 Number of sectors reserved for 
Sequential Program table ( 80 sec- 
tors maximum). 

(Note that the same number of 
sectors is reserved for each disk 
storage drive on the system as 
defined in column 18. ) 
37-38 Standard length of mantissa for 
sps floating-point subroutines (disk 
sector positions 40-41 of the Com- 
munications Area; 08 when the 
system is delivered). This value 
may be any number between 
02-45. 

40-41 Standard sps subroutine set identi- 
fication number ( disk sector posi- 
tions 42-43 of the Communications 
Area; 02 when the system is de- 
livered ) . 

00 — Divide Subroutine only. 

01 — Fixed length mantissa (08) 

floating-point subroutines for 
machines equipped with Au- 
tomatic Divide feature. 
Variable-length mantissa 
floating-point subroutines for 
machines equipped with the 
Automatic Divide feature. 
Variable-length mantissa 
floating-point subroutines for 
machines equipped with the 
Automatic Floating-point 
feature. 

43 Standard N (noise) digit (any 
number 0—9) for sps subroutines 
(disk sector position 44 of Com- 
munications Area; when the sys- 
tem is delivered ) . 

45-46 Standard length of mantissa (any 
number 02-28 ) for Fortran pro- 
grams (disk sector positions 45-46 
of Communications Area; 08 when 
the system is delivered). 

48-49 Standard fixed-point word 
length (any number 04-10) for 



02- 



03 
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Fortran programming system 
(disk sector positions 47-48 of 
Communication Area, 04 when 
the system is delivered ) . 
51 Source of Input, other than disk 
input, for Fortran subpro- 
grams (disk sector position 73 
of Communications Area; 5 
when the system is delivered). 

3=paper tape 

5=card 

53 Core storage capacity of object 
machine (disk sector position 
76 of Communications Area; 1 
when the system is delivered). 

1=20,000 

3=40,000 

5=60,000 

57 Fortran Arithmetic and I/O 
subroutine set identification 
number (disk sector position 
83 of Communications Area; 1 
when the system is delivered). 

1 = disk storage version 

2 = core storage version 

3 = disk storage version for 
machines equipped with 
the Automatic Floating 
Point feature. 

4 = core storage version for 
machines equipped with 
the Automatic Floating- 
point feature. 

The number of disk storage drives on the system 
may be 1, 2, 3 or 4. The Supervisor Program and the 
Disk Utility Program will need to know this number 
in order to utilize all available disk storage. The sys- 
tem will utilize only the first disk storage drive unless 
additional drive availability is specified by a dfine 
control card. Therefore, it may be necessary for the 
user to process a dfine control card immediately after 
initially loading the Monitor I System. When loading 
programs and assigning addresses, the Monitor System 
will start with the first available sector on the first 
available disk drive and proceed sequentially higher 
to available drives. Also, the user may want to change 
some of the other parameters of the system before 
any actual processing is initiated. If any errors are 
found in any data on a dfine control card, all data to 
the left of the data in error will have been processed 
and data to the right will be ignored. See error detec- 



tion and correction for a description of possible 
dfine errors. 

When the routine is used to enlarge or shorten the 
tables or to change the number of disk storage drives 
for the system, the *dfine record should be followed 
by a =}= =Npaus record. After the routine is executed, 
4= 4=paus record will halt the computer to allow the 
operator to reinitialize the System; i.e., to reload the 
Monitor System into core storage. The procedure for 
calling the System into core storage from disk storage 
is described under operation in the Monitor I System 
Section. 



Define Disk Pack Label 

This routine can be used to initialize a new disk pack 
for the Monitor System by writing the disk pack iden- 
tification number in the label sectors (first and last 
sectors of cylinder 99) and the Sequential Program 
table in cylinder 99. All disk packs used by the Moni- 
tor System must be labeled and must contain a Se- 
quential Program table. The disk pack identification 
number is written in the first five positions of the first 
sector in cylinder 99 and a read-only flag is written 
over the corresponding sector address. The same 
number is also written in the 31st through 35th posi- 
tions of positions 1-100 of the last sector of the disk 
pack. This sector address is changed to 00199 regard- 
less of the addressing scheme used for the remainder 
of the disk pack. 

Note that it is necessary to initialize the disk pack 
which contains the Monitor system because the sys- 
tem pack is not automatically initialized when the 
system is loaded. Label sectors on a pack which con- 
tains the Monitor I System may be changed by this 
routine; however, the Sequential Program table will 
not be re-initialized. The Monitor System disk pack is 
identified by 04800 in the sector address portion 
of dim entry 3. 

The format of the control card follows. 

Control Card (DLABL) 

Columns 1 Asterisk (*). 
2-6 
7-11 



Code word, dlabl. 
Disk pack indentification num- 
der to be assigned. 
12 Disk drive number (0, 1, 2, or 
3) of the disk drive that con- 
tains the disk pack to be label- 
ed. 

Both a disk pack identification number and disk 
drive number must be given. If either one is missing, 
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the message 

DUP * ERROR 01 

is typed and the computer halts without writing label 
sectors. To correct the error, the operator may enter 
a corrected control card in the stacked input. Depress- 
ing the Start key will return control to the Monitor 
Control Record Analyzer routine to read the next 
Monitor Control record in the stacked input. 

Only numerical characters may be entered for the 
disk pack identification number. If this number is all 
zeros or any position contains a letter or special char- 
acter, the message 

DUP * ERROR 10 

is typed and the computer halts without writing a 
label sector. The restart procedure is the same as 
that given above for error 01. 



is typed, where nnnnnn is the name specified in col- 
umns 7-12 and Tin is the dim number specified in 
columns 14-15 (preceded by two zeros). 

Both a Name and dim entry number must be given. 
If either is omitted, error message 01 will be typed. 

Error message 10 will be typed for any of the fol- 
lowing conditions. 

1. The Name is all numbers, its first character is not 
alphabetical, or it contains special characters, in- 
cluding nonterminating blanks. 

2. Columns 7-15 contain a record mark or group 
mark in any position or column 13 is not blank. 

3. The dim number is outside the range 10-39 or it 
contains letters or special characters. 

Error message 54 will be typed if no space is 
available for the Name within the first 50 entries of the 
Equivalence table. Also, the Name itself will be typed. 

Error message 51 will be typed if the name is a 
duplicate of another name in the Equivalence table. 
If operator action is required for any of the above 
messages, refer to error detection and correction. 



Define FORTRAN Library Subroutine Name 

This routine permits the user to assign additional 
names (synonyms) for the Fortran library subrou- 
tines or to assign names to user-written library subrou- 
tines. Any user- written library subroutine with more 
than one entry will require this routine in order to 
place the name of the additional entries in the Equiv- 
alence table. These names are added to the Equiva- 
lence table within the first 50 entries of the system 
disk pack. 

The control card format follows. 
Control Card (DFLIB). 



Columns 1 

2-6 
7-12 

14-15 



Asterisk (*). 
Code word, dflib. 
Name of library subroutine, 
left-justified. 

dim number. This number was 
originally specified by the user 
when the subroutine was added 
to the system disk pack. The 
abbreviated 2-digit dim num- 
bers for the sixteen standard 
library subroutines may be 
found in the Fortran ii-d Li- 
brary Subroutines table in the 
Fortran section. 

When a name is entered in the Equivalence table, 
the message 

FORTRAN LIB NAME ENTERED NNNNNNIIII 



Error Detection and Correction 

In addition to the messages described with the indi- 
vidual Disk Utility routines, other numbered error 
messages may be typed. These messages, described 
here, may be common to more than one Disk Utility 
Program as well as Fortran or sps output operations 
that follow compilation or assembly. Table 1 indicates, 
by message number, the error messages that may be 
generated by each routine. A list of the error mes- 
sages and their cause, and a list of operator actions 
for the associated messages follow. 



Error Messages 
DUP * ERROR 01 

DUP * ERROR 02 



DUP * ERROR 03 



DUP * ERROR 04 



DUP * ERROR 05 



Cause 

Field missing from control 
card. 

"to" dim entry number 
specified in drepl control 
card is not in use in DIM 
table. 

"to" dim entry number, 
specified in a drepl con- 
trol card refers to perma- 
nently assigned program. 

"from" dim entry number 
specified in a ddump, 
drepl, or dcopy control 
card is not in use in the dim 
table 

Work cylinders illegally 
specified for program stor- 
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DUP * ERROR 06 



DUP * ERROR 07 



DUP * ERROR 08 



DUP * ERROR 09 
DUP * ERROR 10 



DUP * ERROR 11 



DUP * ERROR 12 



age by dload or drepl 

control card entry. 

dim entry number specified 

in a DDUMP, DLOAD, DREPL, 

dcopy, or delet control card 
is out of range of dim table 
entry capacity. 
"from" dim entry number 
in a drepl control card re- 
fers to an immovable pro- 
gram. 

Insufficient available storage 
space at location specified 
by a dload, drepl, dcopy, 
dfine control card. 
dim table is full. 
Field in dflib, dcopy or 
dlabl control card con- 
tains invalid data. 
Number of modules speci- 
fied in dfine control card 
is greater than 4, or less 
than 1. 

Beginning disk sector ad- 
dress of work cylinder, in 
dfine control card, is not 
first address in cylinder. 



DUP * ERROR 13 



DUP • ERROR 14 



DUP * ERROR 15 



DUP * ERROR 16 



DUP * ERROR 17 



DUP * ERROR 18 



DUP * ERROR 19 



Insufficient available stor- 
age for specified work cyl- 
inder (dfine control card). 
Number of sectors specified 
by dfine control card for 
Sequential Program table 
exceeds 80 sectors. 
Sector address is non-numeri- 
cal in a dwrad, ddump, dload, 
drepl, dcopy, or delet con- 
trol record. 

Storage location specified by 
a dcopy control card 
would cause program stor- 
age to overlap work cylin- 
ders if allowed. 
Starting sector address is 
greater than ending address 

for DWRAD, DLOAD, DREPL, Or 

dcopy control card. 

Sequential Program table is 
defined as less than required 
by the present contents of 
that table ( dfine control 
card ) . 

Core storage address of a 
program to be placed in 



Table 1. Numbered Error Messages Generated by Disk Utility Routines 
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Write Addresses (DWRAD) 
Alter Sector (DALTR) 
Disk -to-Output (DDUMP) 
Load Programs (DLOAD) 
Replace Programs (DREPL) 

Disk-to-Di»k (OGOPY) 
Delete Programs (DELET) 

Define Parameters (DFtNf) 

Define Disk Pack Label (DLABL) 1 

Define FORTRAN Library Subroutine 
Name (DP LtB) 

FORTRAN or SPS Output 
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disk storage in core image 
format is less than 02302. A 
blank address will be treat- 
ed as 02402. If the program 
is a Library function (dim 
entries between 10 and 
130), the message will not 
be indicated. 

DUP * ERROR 20 Name specified by ddump, 

dcopy, or delet control card 
is not used in Equivalence 
table. 

DUP * ERROR 21 dim number specified by 

delet control card is not in 
use. 

DUP * ERROR 24 Cylinder limits specified in 

*dload control card are 
greater than allowed by sys- 
tem parameters. 

DUP * ERROR 51 Name specified is a dload, 

drepl, or dflib control card 
or a Fortran or sps control 
card has been rejected be- 
cause a duplicate name exists 
in the Equivalence table. 

DUP ° ERROR 52 "to" dim entry number spe- 
cified in dload control card 
is in use in dim table (The 
routine will load the pro- 
gram and assign the dim 
entry.) 

DUP * ERROR 53 Name specified in a dload 
AAAAAA or drepl control card or a 

Fortran or sps control card 
has been rejected because 
the Equivalence table (with 
the exception of the first 50 
entries) is full. AAAAAA is 
the rejected name. 
DUP * ERROR 54 Name specified in a dload, 
AAAAAA drepl, or a dflib control 

card or a Fortran or sps 
control card has been reject- 
ed because the first 50 en- 
tries of the Equivalence 
table are full. AAAAAA is 
the rejected name. 
DUP * ERROR 55 Sequence error has been 
CARD SEQUENCE found while reading a pro- 
NNNNN gram to be loaded to disk 

storage. NNNNN is the se- 
quence number of the card 
that is out of sequence. 
Only cards with an eleven 



punch over the leftmost po- 
sition of the sequence num- 
ber (column 76) are se- 
quence-checked; therefore, 
patch cards are excluded 
from the check. 
DUP * ERROR 56 dim number supplied in 

Fortran or sps control card 
is in use in dim table, and 
Name specified in the same 
card has a different dim 
number in the Equivalence 
table. 

DUP * ERROR 57 dim number supplied in 

Fortran or sps control card 
is in use in dim table, and 
Name specified in the same 
card has no matching name 
in the Equivalence table. 

DUP * ERROR 58 "to" dim entry number spe- 
cified in Fortran or sps con- 
trol card refers to a per- 
manently-assigned program 
storage area. 

DUP * ERROR 59 dim entry number specified 

in a Fortran or sps control 
card is out of range of dim 
table entry capacity. 

DUP * ERROR 60 Insufficient available storage 

space for a function speci- 
fied by a Fortran or sps con- 
trol card. 

DUP * ERROR 61 dim table full. 

Operator Action 

Messages 1-24. After the message is typed, the com- 
puter halts. The operator may then enter a corrected 
control record. Depressing the Start key returns con- 
trol to the Monitor Control Record Analyzer routine 
to read the next Monitor Control record. 

Message 51. No operator action required. The rou- 
tine continues and loads the program without placing 
the name in the Equivalence table. 

Message 52. The routine continues; it assigns a dim 
entry and loads the program. 

Messages 53, 54. No operator action required. The 
routine continues and loads the program without 
placing a name in the Equivalence table. 

Message 55. After the message is typed the com- 
puter halts. To restart: 

1. Remove the cards from the hopper. 

2. Depress the Nonprocess Runout key. 

3. Remove the last two cards from the stacker. 
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4. Arrange cards from steps 1 and 3 in correct 
sequence and place them in the hopper. 

5. Depress the Reader Start key. Note that paper 
tape contains no sequence number, therefore, 
it can never generate this type of error. 

Message 56. No operator action required. The rou- 
tine continues and loads the program, generating a 
dim entry, .without placing the name in the Equiva- 
lence table. 

Message 57. No operator action required. The rou- 
tine continues and loads the program, generating a 
dim entry, and places the name in the Equivalence 
table. 

Messages 58, 59. No operator action required. The 
routine continues generating a dim entry and loading 
the program to disk storage. 

Messages 60, 61. After the message types, the com- 
puter halts without loading the programs, providing no 
other output is requested. ( If a Fortran or sps control 
record is included with the source data to indicate 
that the compiled or assembled object program is to 
be punched, the program is outputted without halting 
the computer.) To correct the error, a dload, drepl, 
or ddump Monitor Control record can be entered in the 
stacked input to load the program to a different loca- 
tion from the work cylinders or to output the program. 
Depressing the Start key returns control to the Moni- 
tor Control Record Analyzer routine to read the next 
Monitor Control record. 



FORTRAN and SPS Output 

The Disk Utility Program contains the output routines 
for both Fortran and sps. These routines load object 
programs to disk storage and punch them out into 
cards or paper tape. 
Following compilation or assembly, the message 

DK LOADED AAAAAA IIII DDDDDD 
SSS CCCCC EEEEE #= 

is always typed to inform the user about the assigned 
dim entry, aaaaaa is the supplied name, mi is the 



dim entry number, and the remainder of the message 
is the dim entry. 

For programs being loaded into disk storage, the 
user may select the dim entry and/or name. Names 
and dim numbers are supplied in Fortran ( *ldisk) or 
sps ('name, *id number) control records. 

Processing of the Equivalence table and dim table 
and the actual loading is dependent upon whether 
the user supplies a Name and dim number, Name 
only, or dim number only. 

Name and number supplied by user. 

1. If dim entry is in use in dim table. 

a. and Name is already in Equivalence table. 

1) If Name in table references number sup- 
plied, replace old program with new 
program. 

2) If Name in table references another num- 
ber, type error message 56, and load pro- 
gram with available dim entry number 
and no Name. 

b. and Name is not in Equivalence table, type 
error message 57 and load new program with 
available dim entry number and add Name in 
Equivalence table. 

2. If dim entry is not in use in dim table. 

a. and Name is already in Equivalence table, 
type error message 51 and load program with 
assigned dim entry number without assigning 
Name. 

b. and Name is not in Equivalence table, load 
program and place Name in Equivalence 
table. 

Name only supplied by user. 

1. If an identical Name is in the Equivalence table, 
the program is loaded without the supplied name 
(error 51 will be indicated). 

2. If an identical Name is not in the Equivalence 
table, the object program is loaded, an available 
dim entry is assigned, and the name is added 
to the Equivalence table. 

dim entry number only supplied by user. 

1. Program i§ loaded. If number was in use, object 
program replaces old programs. Names refer- 
encing the old program are deleted from the 
Equivalence table. 
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SPS ll-D 



sps ii-d is a disk-oriented assembly program designed to 
simplify the preparation of programs for the ibm 
1620 Data Processing System and the ibm 1710 Con- 
trol System. The development of larger and more 
versatile data processing systems like the 1620 and 
1710 has resulted in a greater number of, and more 
complex, machine language instructions. The diffi- 
culties of coding in machine language — a tedious and 
time-consuming task — have been recognized and one 
of the efforts toward simplification is the system 
known as Symbolic Programming. 

A Symbolic Programming System (sps) permits 
the programmer to code in a symbolic language that 
is more meaningful and easy to handle than numeri- 
cal machine language, sps ii-d automatically assigns 
and keeps a record of storage locations and checks 
for coding errors. By relieving the programmer of 
these burdensome tasks, sps ii-d significantly reduces 
the amount of programming time and effort required. 

This section is intended to serve as a reference text 
for the sps ii-d Programming System. It assumes that 
the programmer is familiar with the methods of data 
handling and the functions of instructions used in the 
1620 Data Processing System and the 1710 Control 
System. For those without this knowledge, informa- 
tion on 1620 and 1710 systems can be found in the 
appropriate reference manuals. Refer to ibm 1620 
Bibliography (Form A26-5692) and ibm 1710 Bibliog- 
raphy (Form A26-5695). 



Introduction 

The sps II-d Programming System may be divided into 
the symbolic language used in writing a program, the 
library containing the subroutines and the linkage 
instructions! (macro-instructions) that may be incor- 
porated into the program, and the processor program 
that is used to assemble the users program. 

Symbolic Language 

Symbolic language is the notation used by the pro- 
grammer to write (code) the program. The program 
written in sps language is called a "source program." 
This language provides the programmer with mne- 
monic operation codes, special characters, and other 



necessary symbols. The use of symbolic names (la- 
bels ) makes a program independent of actual machine 
locations. Programs and routines written in sps lan- 
guage can be relocated and combined as desired. 
Routines within a program can be written indepen- 
dently with no loss of efficiency in the final program. 
Symbolic instructions may be added or deleted with- 
out reassigning storage addresses. 

Macro-Instructions, Subroutines, and Subprograms 

The macro-instructions that are written in a source 
program are commands to the processor to generate 
the necessary linkage instructions. Linkage instruc- 
tions provide the path to a subroutine or subprogram 
and a return path to the user's program. These sub- 
routines may be special subroutines prepared by the 
user or any of seventeen ibm Library subroutines, 
such as floating divide, square root, and arctangent. 
(Subprograms are user-written only.) The ability to 
process macro-instructions simplifies programming and 
reduces the time required to write a program. 

SPS II-D Processor 

After a source program is written, it is punched into 
cards, or into paper tape if the system is equipped 
with an ibm 1621 Paper Tape Reader. It is then "as- 
sembled" into a finished machine language program 
known as the "object program." 

Assembly is accomplished by the sps ii-d processor 
program which is stored on the disk. The function of 
the processor program is to translate the symbolic 
language of the programming system into the lan- 
guage of the 1620 or 1710. The translation is one for 
one — the processor produces one machine language 
instruction for each machine instruction (except 
macro-instructions) written in symbolic form. 



Symbolic Programming 

Symbolic programming may be defined as a method 
wherein names, characteristics of instructions, or 
closely related symbols are used to write programs. 
The core of the symbolic language is the operation 
code, sps ii-d permits the programmer to write 
programs in a simple, familiar language. It does not 
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require a detailed knowledge of the machine because, 
in coding the program, the programmer uses opera- 
tion codes that are in easily remembered mnemonic 
form rather than in the numerical language of the 
machine. Operation codes are of three types: Declara- 
tive, Imperative, and Control. 

Declarative Operation Codes 

Declarative operation codes are used for the assign- 
ment of core storage for input areas, output areas, 
and working areas. The assigned areas are utilized by 
the object program and may contain the data to be 
processed and/or the constants (numerical or alpha- 
meric characters) required in the object program 
when the data is processed. Declarative statements 
never generate instructions in the object program, but 
may generate constants that are assembled as part 
of the object program. 

Imperative Operation Codes 

Imperative operation codes specify the operations or 
instructions that the object program is to perform. In 
this group are included all arithmetic, branching, and 
input/output statements. Most statements on the cod- 
ing sheet prepared by the programmer are of this 
type. These statements are translated one for one 
(except macro-instructions) and are assembled as 
the machine language instructions of the object pro- 
gram. 

Control Operation Codes 

Control operation codes are commands to the proces- 
sor that provide the programmer with control over 
portions of the assembly process. Instructions of this 
type do not normally generate instructions in the ob- 
ject program. 

The actual and mnemonic operation codes within 
these categories are presented under programming 

THE 1620/1710 USING SPS II-D. 

The statements or instructions in the source pro- 
gram must be entered by the programmer in logical 
sequence on the coding sheet. 

Coding Sheet 

The programmer enters all information relevant to 
the coding of the source program and subsequent 
assembly of the object program on a coding sheet, 
Form X26-5627 (Figure 6). Figure 7 shows a sample 
input card, Form J59692. The format of the input 
card or paper tape record follows the headings on 
the coding sheet. In paper tape, the first punching 



position of a record is said to be column 1. The card 
columns assigned to a single heading are referred to 
as a field. The following is an explanation of the 
headings in the order of their appearance on the 
sheet. 

Heading Line 

Space is provided at the top of each page for the 
name of the Program, Routine, Programmer, and for 
the Date. This information does not constitute part 
of the source program language and is not punched. 

Page Number (Columns 1-2) 

A 2-digit page number is entered to maintain the 
order of the program sheets. This normally numeri- 
cal entry becomes the first two digits of each state- 
ment that is punched from the sheet. 

Line Number (Columns 3-5) 

A 3-digit line number is entered on the sheet to main- 
tain the sequence of the statements coded. The first 
20 lines on each sheet are prenumbered 010, 020, 030. 
etc., through 200. At the bottom of the sheet, six 
unnumbered lines are provided for inserts or for con- 
tinuing the line numbering. The inserted statement 
should be numbered so that it falls sequentially be- 
tween the statements immediately preceding and 
following it. The arrangement of the prenumbered 
lines, 010, 020, etc., permits up to nine statements to 
be inserted between any two statements. After the 
cards for each of the lines are punched, they should 
be placed in correct numerical order. 

Label (Columns 6-11) 

The label field represents the machine location of 
either data or instructions. The field may be left blank 
or may be filled with a symbolic address. Only the 
data or instructions that are referred to elsewhere in 
the program need a label. 

A label may consist of up to six alphameric charac- 
ters beginning at the leftmost position in the label 
field. At least one of the characters must be alphabetic 
or one of four permissible special characters, namely, 
the equal sign ( = ). slash symbol (/), "at" sign ((a)), 
and period (.). 

The best labels to select are those that are mnemon- 
ically descriptive of the area or instructions to which 
they are assigned. Labels that have an obvious mean- 
ing not only provide easily remembered references 
for the original programmer but also assist others who 
may assume responsibility for the program. 
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1620/1710 Symbolic Programming System 
Coding Sheet 
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Figure 6. 1620/1710 SPS Coding Sheet 
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Figure 7. SPS Source Program Card 



Operation (Columns 12-15) 

The 4-position operation field contains the actual 
2-digit numerical operation code or the mnemonic 
representation of the operation code to be performed. 
In either case, the first character of the operation code 
must start in the leftmost position, column 12, of the 
operation field. Listings of permissible mnemonic 
codes and actual operation codes are shown under 
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Operands and Remarks (Columns 16-75) 

The operands and remarks field is used to specify the 
information that is to be operated upon and may con- 
tain, if desired, any additional remarks concerning 
the statement. 

For declarative operation statements, the first oper- 
and usually defines the length; the remaining oper- 
ands, if present, specify constants, an address, and 
remarks. 

For imperative operation statements, the operands 
and remarks field contains, at most, four items: three 
of these are operands and the fourth, remarks. The 
first two operands may be the symbolic or actual 
addresses of data or instructions, i.e., the P and Q por- 
tions of the instruction. The third operand, which 
should be numerical, is called the flag indicator oper- 
and and is used to set flags in the assembled instruc- 
tion. The final item consists of the remarks associated 
with each statement. Imperative statements need not 
contain all four items. Any one or more than one may 



be omitted. The two special characters which may not 
be used in an operand are the right and the left paren- 
thesis, )(. 

A control operation statement normally contains 
only one operand. 

Statement Writing 

Certain rules must be observed in writing or coding 
the statements that make up the source program. This 
section contains rules that apply to the statements and 
their elements, rules governing the length and types 
of statements, use of special characters, the flag indi- 
cator operand and immediate (Q) operand, types of 
addresses used as operands, and address adjustment 
by arithmetic, a method that relieves the programmer 
of considerable effort and reduces the number of 
symbols required for a source program. 

Statements 

Symbolic statements are classed according to the op- 
eration code they contain, and thus are designated 
Declarative, Imperative, or Control statements. In 
addition to the page and line number a statement 
may contain a label, operation code, operands, and 
remarks. No statement in the source program may 
exceed 75 characters in length. Since page number, 
line number, label, and operation require 15 positions, 
the operands and remarks field may not exceed 60 
characters. In the case of the paper tape sps, the 
end-of-line character is considered to be part of the 
operands and remarks field. 
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Use of Special Characters in Statement Writing 

The comma, asterisk, end-of-line character, blank, 
"at" ((a)) sign, and dollar sign are special characters 
that possess distinct meanings in the writing of 
source programs. Their use, as well as that of the 
special characters used as operators for address ad- 
justment, are explained in detail in this section. 

Comma 

The comma is normally used to separate items in a 
statement. The term item refers here to parts of the 
operands and remarks field, such as the P and Q 
operands, the flag indicator operand, remarks, length, 
constants, etc. An imperative statement may consist 
of four items: the P and Q operands, the flag indicat- 
or operand, and remarks, but need not contain all 
four items. Any one or more than one may be omitted. 

If one item is omitted and more items follow, the 
comma that normally follows the omitted item must 
be present. For example, if the flag indicator operand 
is omitted but remarks are present in the instruction, 
the format of the field will be: 



Statement 010 is a halt operation that requires 
three commas (,„) in front of the remarks; these take 
the place of the P, Q, and flag indicator operands. In 
statement 020, the first two commas set off the P and. 
Q operands, whereas the third comma takes the place 
of the omitted flag indicator operand. The number 
of commas required for declarative statements may 
be one or two as explained under declarative opera- 
tions. 

Asterisk 

The asterisk has three uses: in writing comments, 
as an operand or term of an operand, and in address 
adjustment. 

Lines of descriptive information may be inserted 
in the program by placing an asterisk ( * ) in column 
6 of the label field. Comments then may be written 
in columns 7 through 75. Comments inserted in this 
way will appear in the symbolic output, but will not 
affect in any way the operation of the program. A 
comment statement does not produce an entry in the 
object program. 
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All imperative statements that contain remarks must 
include three commas in the operands field, even 
when the operands are omitted. During assembly, the 
omitted P or Q operands will be replaced by zeros in 
the P or Q portion of the assembled instruction. 

Commas indicating omission need not be present 
in statements in which the last item(s) is omitted. 
For example, in the statement in which both the flag 
indicator operand and remarks are omitted, no com- 
mas need be used following the second operand. 
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Statements 010,. 020. and 030 are remarks that do not 
generate instructions. 

The asterisk can be used as the first character or 
term of an operand in an imperative statement and is 
interpreted by the program as the address of the high- 
order (leftmost) position of the address of the instruc- 
tion. It may also be used as any term of the operand to 
indicate the high-order (leftmost) position of the 
address of the instruction. 

When the asterisk is used in address adjustment as 
an operator, it indicates to the processor that a mul- 
tiplication must be performed in order to adjust the 
address. 
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End-of-Line Character 

An end-of-line character (g) is required only on source 
statements that are to be processed on paper tape. 
Use of this character allows statements to be located 
on the tape immediately adjacent to each other, with 
no intervening blank characters. The statements are 
in "free" form; that is, they are not assigned a fixed 
number of positions. 



SO 



Source statements that are to be processed in 
punched card form do not require an end-of-line 
character; the remainder of the line is left blank and 
this is recognized by the processor as the end of the 
statement. 

When the end-of-line character is punched in a 
card for off-line conversion to paper tape, it is rep- 
resented by a 12-5-8 punch combination. 

Blank Character 

A blank character in operands of the source statement 
is ignored by the processor except in dac statements 
(alphameric constants), in which blanks are consid- 
ered valid characters. In effect, the statement is con- 
densed before it is processed. 

Because blanks are ignored by the processor, the 
programmer, to achieve clarity on his coding sheets 
and output listing, may write his statements in modi- 
fied "fixed" form (see Figure 8). 

In this example, columns 16, 36, and 57 are arbitrary 
choices for the locations of the operands. The comma 
following or replacing the P operand may be in any 
column from 16 through 35. 

Blanks are permitted in any position within a flag 
indicator operand except between the 1 and in num- 
ber 10, and between the 1 and 1 in number 11. A 
blank or blanks in the address operand of a declara- 
tive statement, when set off by commas, is interpreted 
by the processor as a zero address. 

"At" Sign 

When the "at" sign ((a)) is used as part of a constant 
being defined by a dc, dsc, or dac statement, a record 



mark (=}=) is created by the processor and inserted 
into the constant in place of the @. Specific rules 
for use of the @ are covered under declarative op- 
erations. 

Dollar Sign 

The dollar sign ( $ ) is used in an operand to instruct 
the processor that the symbolic address in an operand 
has a specific heading character. The $ is written 
between the heading character and the symbol. For 
example, in an operand the heading character "5" 
and the symbol "SUM" appear as 5$SUM. For addi- 
tional information on the use of the $, refer to head- 
heading in the processor control operations sec- 
tion. 

Operands 

Flag Indicator Operand 

The flag indicator operand specifies the positions that 
are to be flagged in the assembled instruction. These 
positions are numbered from left to right, through 
11, and must be listed sequentially. For example, if 
positions 2 7, and 10 are to be flagged, the flag indi- 
cator operand should be coded 2710, not 2107. All 
positions may be flagged, if desired. The operand 
then will be coded 01234567891011 and must be writ- 
ten in that order. 

Normally, no flags are set when the flag indicator 
operand is omitted. However, if the flag indicator op- 
erand is omitted from immediate instructions 
(except tdm), a flag is automatically set in position 
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Figure 8. SPS Statements in Modified "Fixed" Form 
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Q 7 . If the operand is present, only the positions indi- 
cated are flagged. 

The flag indicator operand can be used to insert 
a flag over the units position of the P and Q addresses, 
if the source program is written for a 1620 or 1710 
that has Indirect Addressing (special feature). 

Immediate (Q Operand) 

With immediate-type instructions such as Add Im- 
mediate (am), Subtract Immediate (sm), and with 
actual operation codes that begin with the digit 1, 
the Q operand represents the actual data to be used 
by the instruction. It may be absolute or symbolic as 
previously defined. High-order zeros of absolute data 
may be eliminated. 

During assembly, the processor automatically places 
a flag over position Q 7 of an immediate instruction 
unless a flag indicator operand indicates otherwise. 
For example, the statement 
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causes the number 10023 to be subtracted from the 
field called total because the flag that terminates 
the field to be subtracted is automatically placed 
over position Q 7 . However, the statement 
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will cause only the number 23 to be subtracted from 
the field called total because the flag indicator oper- 
and directs that the field-terminating flag be placed 
over position Q i0 rather than Q 7 . There is one excep- 
tion to this rule: a transmit digit immediate instruc- 
tion ( tdm, code 15 ) does not require a flag; therefore, 
none is automatically set by the processor. 



Types of Addresses Used as Operands 

Operands assembled by the processor may be of 
three types: actual, symbolic, and asterisk. The indi- 
vidual applications for a particular type of address 
are described in the section programming the 
1620/1710 USING SPS II-D. 



Actual Address 

An actual address consists of five digits (00000-19999) 
for a standard capacity machine and is, as the name 
implies, the actual core storage address of a piece of 
data or an instruction. High-order zeros of an actual 
address may be eliminated. For example, the state- 
ment 
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causes the data in storage location 12251 to be added 
to the data in storage location 03684. 

Symbolic Address 

A symbolic address is the name assigned by the pro- 
grammer to the location of an instruction or a piece 
of data. A symbolic address is valid only if it is de- 
fined (given an actual numerical value) by a declara- 
tive statement somewhere in the source program, or if 
it is used as the label of an instruction. Symbolic ad- 
dresses may contain from one to six characters 
(letters, digits, or special characters) with the follow- 
ing restrictions: 

1. At least one character must be nonnumerical. 

2. The only permissible special characters are: 
equal sign ( = ), slash symbol (/), "at" sign (@), 
and period (.). 

Blanks are permitted within a symbol; however, 
they are ignored by the processor during assembly. 

The example shown below contains both an actual 
address and a symbolic address. 
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In this example, the data in the field whose actual 
address is 12251 is added to a field whose address is 
the symbolic name total. 

Asterisk Address 

When the asterisk is used as the first character of an 
operand in an imperative operation, it is interpreted 
by the processor to be the address of the high-order 
(leftmost) position of the instruction. For example, 
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the statement 
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indicates to the processor that the Q portion of the 
instruction should contain the address of the instruc- 
tion. This instruction is assembled as 44 01234 01876, 
where start equals 1234 and the address assigned to 
the instruction is 1876. Thus, when executed in the 
object program, this instruction examines its own 
leftmost position (1876) for a flag and either branches 
to the instruction at location 01234 or continues, on 
the basis of the examination, to the next, instruction 
located at 01888. 

When an asterisk (*) address is used with either 
declarative or control operations, it refers to the 
rightmost position of storage last assigned by the 
location assignment counter of the processor — not to 
the leftmost character of the instruction. For example, 
the statements 
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produce the instruction 

16 12045 70004= 

Since record marks can be defined only in declara- 
tive operations, an imperative statement should be 
followed by a dc statement when a record mark is 
required in the instruction. The rightmost position 
of the instruction is the rightmost position of storage 
last assigned; therefore, it is also the position where 
the 4= (constant) is stored. 

Address Adjustment of Operands 

Address adjustment is used to tell the processor to 
arithmetically adjust the addresses in operands. It is 
permitted with all types of addresses: actual, symbol- 
ic, and asterisk, and is used to refer to a location that 
is a given number of positions away from a specific 
address. Use of this feature of the language reduces 
the number of symbols necessary for a source pro- 
gram. 

By writing a +' (plus sign) for addition, — (minus 
sign) for subtraction, and * (asterisk) for multiplica- 
tion, immediately after the first or subsequent term 



of an operand (an asterisk as a term of an operand 
does not represent multiplication but means the ad- 
dress of the instruction, as previously explained), the 
programmer indicates to the processor that the ad- 
dress is to be adjusted. 

Arithmetically adjusted operands may take the form 
of A ± B ± C ± D, where the terms A, B, C, 
and D may be numerical quantities. The number of 
terms in the operand is limited only by the size of 
the operand and remarks field. Thus the operand 
A -f B * C — D may be further adjusted by writing 
after the last term another term, E, for example, 
A + B*C-D + E. 

In arithmetically adjusted operands, the operation 
or operations of multiplication are always performed 
first, followed by the addition and subtraction re- 
quired to calculate the adjusted address. Intermediate 
results that are greater than ten digits, or a final result 
(adjusted address) that is over five digits, cannot be 
calculated by the processor. 

For the 1620 or 1710 with standard storage capaci- 
ty (20,000 storage positions), addresses that exceed 
19999 are considered errors; however, they will not 
be detected as such. Therefore it is possible, with a 
standard capacity machine, to assemble an object 
program for a machine with 40,000 or 60,000 positions 
of storage. For machines that have 40,000 or 60,000 
positions of core storage, the processor is automatical- 
ly modified to use the additional storage to enlarge 
the size of the symbol table. In that case, addresses 
that do not exceed 39999 or 59999, depending upon 
the storage capacity, are considered valid addresses. 

In using address adjustment, the programmer 
should be careful that insertions or deletions do not 
affect the adjusted address. For example, if a P oper- 
and in a branch (B) instruction refers to an address 
as * -}-48 (i.e., branch to the instruction that fol- 
lows the next three sequentially higher instructions), 
the programmer must ensure that no new instructions' 
are introduced within the three instructions to make 
the * 4~48 incorrect. In this example, the asterisk ( * ) 
is the leftmost position of the instruction itself. 
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ARITHMETIC 

1000+40 
1000-30 
1000* (2X») 
1000X3 
1000 X 4 
5004(20X3) -11 
(100X3) + (20XS)- 
2MO+1Z 
(2000X3) X2 
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The operands shown will produce the adjusted ad- 
dresses, as indicated, provided the location 1000 has 
been assigned to the symbolic address alpha, the lo- 
cation 4 has been assigned the symbolic address L, 
and the instruction location ( * ) is equivalent to 2000. 

Branch Operands 

In some instructions such as Branch and Branch Back, 
the Q address is not used, although a zero (00000) 
address is generated. Thus the instruction uses twelve 
storage positions. By using an * address in the follow- 
ing statements, 



the sps ii-d language: 

Mnemonic Meaning 

B7 Branch and adjust location 

assignment counter 
BB2 Branch Back and adjust lo- 

cation assignment counter 

These mnemonics are written left-justified in the 
operation field of the statements as shown in the 
following example. 
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the instructions are condensed, to eliminate four posi- 
tions of the unused (zero) Q address, and are stored 
as 

49136680161204570000 
whereas the statements 
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are stored as 

491366800000161204570000 

because the unused Q address is not eliminated. In 
the first example, only four positions of storage are 
saved; however, a considerable amount of storage 
can be saved in a program that contains many instruc- 
tions where the Q or both the Q and P portions of 
instructions are unused. Because the * in the dorg 
statements (see processor control operations) re- 
fers to the rightmost position of storage last assigned 
(Qu of the B instruction), * —3 is the address where 
the next instruction starts. 

To automatically eliminate the unused storage as- 
signed to Branch or Branch Back instructions, the 
following two imperative mnemonics are included in 



The first statement is equivalent to the following 
symbolic instructions: 

B ADDR 
DORG * -4 

where addr is the address used by the branch instruc- 
tion (b). The second statement is equivalent to the 
following symbolic instructions: 

BB 

DORG * -9 

For all imperative statements, except B7 and BB2, 
the address assignment counter is incremented by 12. 
For B7 and BB2 statements, the address assignment 
counter is incremented by 7 and 2, respectively. A 
label may be included with a B7 or BB2 statement. 

Inserting Flags 

By placing a minus sign in front of the first term of 
an operand, a flag (minus sign) can be inserted 
over the units position of the adjusted address. This 
feature of address adjustment can be used for insert- 
ing flags required for Indirect Addressing (special 
feature). However, an operand written as —0 (minus 
zero ) does not insert the flag in the units position over 
the zero. When the minus sign is written in front of 
the first term of the operand in order to set a flag 
over the units position, other signs following the first 
term should be reversed so that the correct address 
is obtained. 
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Programming the 1620/1710 
Using SPS ll-D 



This section describes in detail the various steps to be 
followed in writing a program for the 1620 or 1710 
using sps ii-d. The material has been divided into 
three categories: Declarative Operations, Imperative 
Operations, and Processor Control Operations. The 
imperative operations that apply to the 1710 only are 
listed in Table 22 in the Appendix. 



Declarative Operations 

In programming the 1620 or 1710, all records, and any 
other data that is to be processed by the program, 
must be assigned storage areas. Normally, all records 
and data to be processed consist of fields of known 
length and arrangement. Unless otherwise specified, 
areas are automatically assigned core storage locations 
in the order in which they appear in the source 
statements. 

The declarative statements provide the object pro- 
gram with the input/output areas, work areas, and 
constants it requires to accomplish its assigned task. 
These statements do not produce instructions that are 
executed in the object program. The entries, ds, dss, 
das, and dsb assign storage. The entries, dc, dsc, dvlc, 
dac, dsac, dsa, dnb, dda, dgm, and dmes usually assign 
storage, and also produce, in the object program, both 
the machine address of the area assigned and the con- 
stants that are to be stored in this area. Constants 
are then loaded with the object program. 

Declarative statements may be entered at any point 
in the source program. However, these statements 
are normally placed by themselves, preferably at the 
beginning or end of the program — not within the 
instruction area. If not placed at the beginning or end, 
the programmer is required to branch around an area 
assigned to data so the program will not attempt to 
execute what is in a data area as an instruction. 

The declarative mnemonic operation codes and 
their meanings follow: 

Code Meaning 

ds Define Symbol (Numerical) 

dss Define Special Symbol (Numerical) 

das Define Alphameric Symbol 



DC 


Define Constant (Numerical) 


DSC 


Define Special Constant ( Numerical ) 


DVLC 


Define Variable Length Constant 


DAC 


Define Alphameric Constant 


DSAC 


Define Special Alphameric Constant 


DSA 


Define Symbolic Address 


DSB 


Define Symbolic Block 


DNB 


Define Numerical Blank 


DDA 


Define Disk Address 


DGM 


Define Group Mark 


DMES 


Define Message (1710 Only) 



DS — Define Symbol (Numerical) 

A ds statement may be used to define symbols used 
in the source program (i.e., to assign storage address- 
es or values to symbolic addresses or labels) and to 
assign storage for input, output, or working areas. 
A ds statement does not cause any data to be loaded 
with the object program. 

The length of the field is defined by the first oper- 
and. This operand must be positive and may be an 
absolute value or a symbolic name. If a symbolic 
name is used, the symbol must previously have been 
defined as an absolute value, that is, it must have 
appeared in the label field in a statement of the 
source program preceding the one in which it is 
used. Address adjustment may be used with this 
operand. 

The address in core storage of the field being de- 
fined may be assigned by the programmer or the 
programmer may let the processor assign the address. 
If the processor assigns the address, the statement 
is terminated after the first operand. If the program- 
mer assigns the address, a second operand, which 
may be symbolic, asterisk, or actual, is used to estab- 
lish the address of the field. Since data fields are 
addressed at their rightmost (low-order) digit, the 
processor assigns this position as the address of the 
field. Address adjustment may be used with the sec- 
ond operand. If the second operand is symbolic, it 
also must previously have been defined. Addresses 
assigned by the programmer do not disrupt the se- 
quence of addresses assigned by the processor. 

A ds statement may also be used to define a symbol, 
without assigning any storage, ie., to define it as an 
absolute value. In this case, the first operand is omit- 
ted (or written as 0) and the second operand 
represents the value (may not exceed five digits in 
length). The second operand may be an actual value 
or a previously defined symbol. To define storage 
which will not be referred to symbolically, the label 
of the ds statement may be omitted. 
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The following statements define the field length 
only. When remarks are added to the statement, the 
field length must be followed by two commas. 



Lin* 
1—1 


Label 


Operator 

!l. !i 


UN IS M JS 40 49 so 


ft. 1 .9 


DELTA* 


PA , 












.l>2if 


D£.LTAA 


PA , 


7.,..,TMO. COMMAS. M£.Q,<JJK£I>. £X>*. K.EMAKXS. . 



In the next example, the programmer assigns the 
address of the field and excludes the field length ( the 
first operand) from the statement because it is with- 
out significance, and replaces it with a comma. The 
following statements cause the processor to associate 
the address 12930 with the label sum: 



line 

I ' 


lobal 


Operation 

u U 


Operands & Remarks 

M M M 30 3S 4Q «S » 


tl'.t 


$m , , 


PA , 


.12.93.0. 










iilif 


sm , . 


PA , 


,J.2,9A0,,rM0. .COMMAS AGAIN. .*£.Q.VJ *£.D. . . . 



Again, in this example, two commas are required 
when remarks form part of the statement. 

The following statement, which is similar to the 
one previously given, is assigned a value that is other 
than an address. 



Lin* 

1 s 


label 

« 11 


Operation 


Operandi & Remo/Vj 

H»»»»40*5J0 


0.1 .0 


F.L. . . . 


PA , 


,.i.7.,S.U>. .l.G.TH. F.O.K. S.UMA£Q.U£J4.T. S.THT3. . . 



This statement defines the symbol fl as being equiva- 
lent to the value 17. Subsequent uses of this symbol are 
permitted because the symbol has been defined. 

It should be noted that an area defined by the 
processor for a ds statement is always addressed at 
the rightmost position. However, to use this area for 
input/output, the leftmost digit must be addressed. 
This is done by using a dss statement in place of a 
ds statement or by address adjustment with a ds 
statement, which subtracts a number that is one less 
than the length of the area from the address of the 
area. In a previous example, where deltax was de- 
fined as having a field length of 7, the operand of 
another instruction to read numerical data into the 
deltax field should be written as deltax —6. 



DSS — Define Special Symbol (Numerical) 

The dss statement is similar to the ds statement with 
one exception: when the second operand is omitted, 
the processor assigns the leftmost position as the ad- 
dress of the field. If the second operand is assigned 
by the programmer, this address is assumed to be 
equivalent to the leftmost position of the field. A 
dss statement is normally used to define a storage area 
for input/output. The data in such an area may be 
moved during execution of the object program by a 
Transmit Record instruction which requires that an 
address assigned to an area must be that of the left- 
most position. 

DAS — Define Alphameric Symbol 

The das statement is similar to the ds statement with 
two exceptions: 

1. The length specified by the first operand is auto- 
matically doubled by the processor to allow for 
alphameric data. Each alphameric character re- 
quires two storage positions. 

2. The address of the field, if generated by the proc- 
essor, is the leftmost position of the field plus 
one. The position is always odd-numbered, as it 
must be with any alphameric field. 

The following example illustrates a das statement. 



Una 

!.,_£ 


Label 

1 II 


Operation 

il 


Operandi It towrtu 

U90SKH40 43H 


o.i.o 




MA 


3.0. 










till? 


WAS 


PAA 


3A,.,A.E.HA*,*A KEAUl :*.£. XMO. CAMAS. 



This statement defines an area for input/output that 
can contain 30 alphameric characters. The processor 
assigns 60 positions in core storage to accommodate 
alphameric coding. The output listing indicates this 
by typing 60 when this statement is assembled and 
listed. The omission of the second operand causes the 
processor to assign an address. During internal trans- 
mission of a field which utilizes an input-output area 
that is defined with a das, the area must be addressed 
at its rightmost position. In the example, the address 
may be achieved through address adjustment, i.e., 
title + 2 * 30 - 2. 

DC — Define Constant (Numerical) 

The dc statement may be used to enter numerical 
constants into the object program, and, for ease 6f 
reference, to assign names to the constants. The label 
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field contains the name by which the constant is 
known, dc statements consist of three operands. The 
first operand, which must be positive, indicates the 
length of the constant field; the second, the actual 
constant; the third, the storage address of the con- 
stant. The third operand is not used when the pro- 
grammer prefers to let the processor assign the 
storage address. The assigned address is the rightmost 
storage position of the constant. The leftmost storage 
position is the position over which the processor 
places a flag. 

Whenever remarks form a part of a dc statement, 
three commas must be included in the statement. 
The first and third operands may be symbolic or 
actual. They are subject to address adjustment. A 
symbolic address must previously have been defined 
to be valid. 

If the first operand (length of constant) is smaller 
than the constant, an invalid condition results (see 
Error 10). If it is larger than the constant, zeros are 
inserted to the left of the constant so that the num- 
ber of zeros plus the number of positions in the con- 
stant equals the length of the field (first operand). 

A constant that is a positive number will be stored 
in the form of an unsigned integer; a negative num- 
ber, in the form of a signed integer. A negative num- 
ber has the minus sign written in front of the con- 
stant as part of the second operand. During assembly, 
a negative number produces a flag (minus sign) over 
the units position of the constant. 

If the constant 0100000 and -0004337769 are re- 
quired, they may be defined as follows: 



line 

1 » 


Lobel 

< 11 


OperaKor 
11 IS 


Operands & Remorki 

U» »»»»«» 


«.' ,9 


C.OMS.TJ 


1>A , 


7.». 1 .0.0.0,0,0. 










9.2.» 


C.OMS.T.1 


t>A, , 


7.,JA0.00A»,t.3. C.OHMAA F.O.R. Jl£HA#X$. 


... j, .J. 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


0,1.9 


C.OM5.T.1 


PA , 


Jfi*rA$AT7fiA 










f if iff 


C.OMST2 


*>A , 


ifi.tr .4.3.3,7.7.6.9. >. ,3. .COMMAS. f.O.R ,R£MA.RX.S. . . 



ments that: 

1. Store a record mark by itself as a constant. 

2. Store a constant 6 and record mark. 

3. Store a minus 0773 and record mark. 



lint 

1 s 


Label 


Operotior 
l) IS 


Operandi & Remarks 

U 30 33 » 3S 40 « so 


«l> .0 




PA , 


J. r G%. f .S.T.O/t.£. A. R.E.CO.RD. M.AjRX. .ONLY, 










5,?, 9 




OA , 


2,>,6g t .,,S.r,0R£, A. S./.X. Afllfi .R.S.CARA MA AX. . . 


1 1 








0,3,0 


C.QN.ST.Y 


PA , 


S,,,-,7,7.30.,>.S.T,OX,£, A WN.U.S, ,7.73. A.MP. ,RH , . 



These constants appear in the object program as: 

=4= 

\ 4= 
0773 4= 

A constant 7 with a flag (7) is generated by either 
of the following statements: 



Line 

3 S 


label 


Operation 

II 15 


u 


Operands & Remorki 
» 25 » 35 «0 *i SO 


0,1,0 


C.0.N.S.TZ 


PC, , 


/.» 


-7*.t STORE A .7. WITH A. .FLAG. 










0,3 ,0 


C0.NS.T2 


PA , 


It 


7.,.,.S.T0fi£. A 7. Jtf/Jfl, A. /.LAG. , 



A flag is always placed over a 1-digit constant ( except 
a record mark) regardless of the sign (positive or 
negative). Therefore, the programmer must use two 
positions to define a positive 1-digit constant. 

Constants may not exceed 50 characters. The fol- 
lowing statement generates a constant containing 50 
zeros. 



line 

3 S 


Label 
i n 


Operation 
13 IS 


Operands & Remarks 

U 20 25 W 3S 40 «5 50 


0,1 ,0 


2£.R.O. , 


DA, , 


S.0.,.0.t.,5.TOR.£ FIFTY. Z.E.RO.S. 



In both cases, constant 1 and constant 2, the length of 
the field is greater than the constant, and the address 
of these constants is assigned by the processor. These 
constants will appear in the object program as 

0100000 
0004337769 

A record mark may be used in a constant but must 
be in the units position and must be written as the 
character @. The following example contains state- 



To store a zero with a flag at location 401, the fol- 
lowing statement can be used: 



Line 

3 S 


Label 


Operation 

13 IS 


Operands & Remarks 

16 20 25 30 35 40 *b 50 


9,1,0 




PA , 


l.i. -.0.) AO I* STORE. .A, ZERO. .W./.TJt, A FLAG. . 
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DSC — Define Special Constant (Numerical) 

This statement is similar to the dc statement in that 
the first, third, and fourth operands are written in 
the same manner as a dc statement. The second oper- 
and (the constant itself) is assigned an address that 
corresponds to the leftmost digit of that constant. The 
constant may contain digits, flagged digits, and the (a) 
character. The @ character is translated by the proc- 
essor into a record mark and may appear only as 
the low-order character of the constant. The high- 
order digit of the constant is not automatically flagged 
by the processor. Flagged digits in the constant are 
specified by J-R for 1-9. A flagged zero is indicated by 
an 11-0 punch (card only). A flagged zero may not be 
used when input is from the paper tape reader or 
from the typewriter. 



DVLC — Define Variable Length Constant 

The dvlc statement permits the programmer to speci- 
fy one or more constants of the same or different 
lengths with one statement. The statement requires a 
minimum of three operands; the first specifies the 
address of the low-order position of the first con- 
stant; the second, which must be positive, specifies the 
length of the first constant; the third specifies the con- 
stant itself. Each constant after the first will require 
two operands, one for the length and one for the 
constant. All operands may be actual or symbolic 
and may be arithmetically adjusted. 

The first operand is used only if the programmer 
wishes to specify an address. If it is omitted, the 
processor will assign the address of the first constant. 
The total length of all constants must not exceed 50 
digits. 

Constants are flagged in the high-order position. 
The address of the low-order position of the first 
constant (third operand) is assigned to the label of 
the statement. Negative constants should be preceded 
by a minus sign. Symbols used in the constant oper- 
and need not have been previously defined, but may 
have appeared as labels in any part of the program. 
No remarks or @ characters are permitted within 
this statement. 

The constant operands are treated as normal dsa 
operands. This means that the constant, if specified as 
an actual number, may not exceed five digits. How- 
ever, in a dvlc statement, address adjustment may be 
used within the constant operand to obtain an output 
of up to ten significant digits. If the address adjust- 
ment results in a number greater than ten digits in 
length, only the ten right-most digits will be retained. 



The following statement defines a constant of 
10000 which can be referred to by two different la- 
bels: 



3 S 


label 

6 11 


Operation 

1! 15 


1* 20 25 30 


Operands & Remarks 

35 40 45 SO 


0. 1 .0 


C.OMSJ 


Dy,L,C 


N,AME,,5, 100.00 , . 



DAC — Define Alphameric Constant 

To define a constant consisting of alphameric data, the 
operation code dac is used. The dac statement is sim- 
ilar to the dc statement with three exceptions: 

1. The first operand (length) is automatically 
doubled by the processor to allow two storage 
positions for each alphameric character. 

2. The storage address of the constant is the ad- 
dress of the leftmost position plus one. This 
address must be an odd-numbered address to 
comply with the requirements for alphameric data 
storage. An odd-numbered address will auto- 
matically be assigned, if it is assigned by the 
processor. If it is specified by the programmer 
(as in line 020 of the following example), the 
processor assigns the specified address and pro- 
vides that the constant is stored beginning one 
position to the left of the specified address. In 
the latter case, the processor makes no test of 
whether or not the address is odd-numbered or 
whether the address (or the position to the left) 
has been previously assigned. 

3. High-order zeros are not automatically inserted 
in the constant by the processor, as is the case 
with a dc statement when the field length ex- 
ceeds the number of characters. The number of 
characters, including blank characters, should not 
be greater or less than the specified length 
(first operand). When the rightmost position or 
positions of the constant are blank characters, 
they should be followed by a comma or end-of- 
line character. For card input, the rightmost 
position must be followed by a comma or a 
record mark. 

Note: Only dac and dnb instructions may be 
used to insert blank characters into storage. 



Line 
1 5 


label 


Operation 

12 . is 


Operands & Remarks 

14 20 25 30 35 40 45 50 


0.1.0 


N.OJAX. 


w, 


l,7. t P.E.CH ,30,78 T>y,NCHEP.,.,,ENP, /Vt,ES£/\G,E, , . 










'•ill? 




DAC i 


(,,, ,9,0,1 , S,T,0,R,E, ,6. AL.P.H.A, .B.L.K.S, , , . , 










0,1,0 






i,,P,>,,, A tPHA ,fA R , o.ujfMT, A R , £ /\ 










0,4,0 




DAC 
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In the example shown: 

1. Statement 010 uses 34 storage positions to store 
the 17-position constant (deck 3478 punched). 

2. Statement 020 places 6 alphameric blanks into 
storage locations 900 through 911. Also, a flag is 
set in location 900. 

3. Statement 030 records an alphameric record mark 
in storage. 

4. Statement 040 places a 13-position constant, in- 
cluding a record mark, in storage. 

A 50-character alphameric constant (maximum allow- 
able) occupies 100 positions of storage. A flag is set 
over the leftmost position of the field. Addressing 
this constant for internal field transmission requires 
the address output +50 * 2—2, where output is the 
symbol (label) which represents the leftmost address 
plus one. 



DSAC — Define Special Alphameric Constant 

This statement is similar to the dac statement with 
one exception. The constant in a dsac statement is 
addressed by the low-order digit of the field. The 
high-order digit of the field is flagged as in a dac 
statement. 



DSA — Define Symbolic Address 

The dsa statement may be used to store a series 
of up to ten addresses as constants, as part of the 
object program. These addresses can be used for in- 
struction modification or for setting up a table of 
addresses through which the programmer may index 
to modify a routine. 

Each entry (symbolic or actual) in the operands 
field, with the exception of the last entry, is followed 
by a comma. The equivalent machine address of each 
entry is stored as a 5-digit constant. The constants 
are stored adjacent to each other with a flag over the 
high-order position of each. The label field of this 
statement must contain the symbolic name by which 
the table of constants may be referred to. An address 
at which this table is stored in core storage may not 
be assigned by the programmer nor may any re- 
marks be included in the dsa statement. The address 
assigned by the processor is the address at which the 
rightmost digit of the first constant will be located. 

Note: If the last operand is followed by a comma, an 
additional zero address (00000) is assembled in the 
table. 

In the example that follows, symbols alpha, origin, 
and output are equivalent to addresses 3200, 3600, 



and 15000, respectively. 



Lift* 

i„, s, 


label 

t n 


Operation 

11 IS 


Operands & Remarks 

14 JO 35 30 35 40 45 SO 


1,1 .0 


T.Afi.L.£. 




A.LPMA.i ,Q». / 6. 1 ,/Vj J.2.3,4, f ,O.UXP.UJ.-.5.0 



The constants are stored as 

03200036000323414950 

t t 

(06200) 

(06204) 

If the leftmost digit of these four constants is located 
at 06200, then the address equivalent to table will be 
06204, the location of the rightmost digit of alpha. 

DSB — Define Symbolic Block 

A dsb statement is used to define an area of storage 
for storing a numerical array. A dsb statement does not 
cause any data to be loaded with the object program. 
The label of this statement is converted to the address 
at which the first element of the array is stored (i.e., 
the rightmost position of the first element). The first 
operand indicates the size of each element; the sec- 
ond, the number of elements. Both operands must be 
positive. 

Either or both operands may be symbolic or actual. 
If symbolic, the symbol must have been previously de- 
fined. A third operand is required if the programmer 
wishes to assign the address. For example, to store 
an array of 75 elements, with each element containing 
15 digits, the statement used would be: 



Lin* 


label 


Operation 




Operands & Remarks 


a_ .5. 


4 11 


13 15 


14 30 39 30 


35 40 43 SO 


J,',? 


A.Xfi.A.Y, 




1.5, 7.5., 7.5.1 A 



In this example, the array begins at location 07500 
(leftmost position of the first 15-digit element), array 
is equivalent to 07514 (address of the first element). 

DNB — Define Numerical Blank 

A dnb statement is used to define a field of numerical 
blanks. (The 8-4 card code denotes a numerical 
blank.) Up to 99 blanks may be specified in each 
dnb statement. In addition to a label, two operands 
can be assigned by the programmer. The first of 
these specifies the number of blank characters desired 
(field length). This number must be positive/The sec- 
ond operand specifies the rightmost address of the 
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field where the blanks are stored in the object pro- 
gram. 

If the second operand is omitted and the statement 
is labeled, the address assigned to the label by the 
processor is the rightmost storage position of the 
blank field. The blank field does not contain a flag 
in its leftmost position. 

If the programmer wishes to move a blank field in 
core storage, he must either define a single-digit 
constant with a flag bit in the position in front of the 
leftmost position of the blank field, or a record mark 
in the position following the rightmost position of 
the blank field. 

If six numerical blanks are required, they may be 
defined as follows: 



Line 


Label 


Operation 








Operands & Remarks 


3 5 


i M 


12 IS 


16 


X 


IS 30 


35 40 45 50 


0.1 .0 


B.Lfi.N.K.S 


DM 


6. . 



The processor assigns the storage address of the six 
blank positions to the label blanks. In the example 
that follows, the programmer assigns the storage ad- 
dress as 08625. 



Line 

1 5 


Label 

6 II 


Operation 
12 IS 


Operands & Remarks 

M 30 » 30 35 40 45 JO 


0.1.0 


B.L.A.KKS 




6,,, 8.6.2.5;,. S,T.Q,J?,£. ,S./X Mt/AE7U PAA. .3.L.A.M.S. , . 



In a dnb statement, two commas are required when- 
ever remarks are included in the statement; the first 
after the length operand and the second after, or in 
place of, the address operand. 

DDA — Define Disk Address 

The dda statement allows the programmer to define 
the disk control field of a seek, read, write, or check 
operation. This field is assembled as a 14-digit con- 
stant divided in the following manner: 



The statement requires five operands, each of which 
may be actual or symbolic and may use address 
adjustment. 

1. The first operand specifies the address of the 
high-order position (drive code) of the disk 
control field. This address must be even. If the 
operand is omitted, the processor assigns the next 
valid address. A comma indicating the end of 
the operand must be present. 

2. The second operand specifies the module ( drive ) 
to be acted upon by the input/output or control 
instruction that addresses the disk control field. 
During assembly, this operand becomes the first 
digit of the 14-digit constant. If the digit is even 
or zero, the module to be used by the instruction 
is determined by the second digit (high-order 
digit of the sector address ) of the constant; if it 
is odd, the module is determined by the digit 
itself. When the operand is in symbolic form, the 
low-order digit of the equivalent numerical value 
of the symbol becomes the first digit of the 
assembled 14-disit constant. See Example 1 
(EX1). 

3. The third operand specifies the 5-digit sector 
address (00000-79999) where reading, writing, 
or checking begins. From this address the com- 
puter determines the correct cylinder, head, and 
sector. It also determines the drive module un- 
less overridden by the second operand. 

4. The fourth operand indicates the number of sec- 
tors (1 to 200) to be read, written, or checked. 

5. The last operand specifies the 5-digit core stor- 
age address used for data transfers to and from 
disk storage. Reading or writing begins at the 
specified address and extends into successively 
higher-numbered core storage locations. This 
address must be even. 

Each of the last three operands assembles with a 
flag over the high-order digit. If a label is used with 
this mnemonic, it is assigned the address of the drive 
code. 

EXAMPLES 

Assume: M=02 

DISK=14540 

SECT=150 

CORE=10000 



xx.xxxxxxxxxxxx 



Drive 
Code 



Sector 
Address 



Sector 
Count 



Core 
Address 



Line 
3 5 


label 


Operation 
13 15 


Operands & Remarks 

H 30 35 30 35 40 45 50 


0, 1 .0 






,M,p/SK, SECT, CORE ^ ^ 










o.'.o 






C,Y,i.fi*M>,l 6 2.5,0. t SECT+Z tt CpTiE 
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For these examples, the assembled output (disk 
control field) would appear as follows: 

21454015010000 
21625015210000 

! 

Address of FIELD and CYLD 
DGM — Define Group Mark 

A dgm statement is used to place a group mark at 
some specific address in core storage. It needs only 
one operand; the address where a group mark is de- 
sired. The operand can be actual, symbolic, or arith- 
metically adjusted. If no operand is specified, a group 
mark is placed in the next available core storage lo- 
cation. Only one group mark may be defined with 
each dgm statement. 



DMES — Define Message (1 71 Only) 

The dmes instruction is designed to aid the 1710 user 
in programming the output control codes of the Serial 
Input/Output Channel ( SIOC ) . With one dmes state- 
ment, a complete message of alphabetic, numerical, or 
mixed-mode data can be specified. Although this 
mnemonic is oriented to the SIOC output printer, it 
may be used to program other devices which are 
wired to accept the control codes of SIOC. 

The dmes statement requires three operands; ad- 
dress, starting mode, and message. Remarks are not 
permitted. 

1. The address operand may be used by the pro- 
grammer to assign an address to a message, in 
which case he assumes the responsibility of cor- 
rectly positioning the message if alphabetic out- 
put is indicated. If no particular address is de- 
sired, a comma must be placed in lieu of the 
address operand. The processor will then assign 
a valid address. 

2. The second operand specifies the starting mode; 
an A indicates the alphabetic mode; the omission 
of the operand indicates the numerical mode 
Even though this operand may specify an alpha- 
betic starting mode, the correct positioning of 
the message is still dependent upon the address 
operand. 

3. The message operand consists of alphabetic, nu- 
merical, or mixed-mode data, and special charac- 
ters which have been assigned to the control 
functions for use in a dmes statement (see Table 
2). 

The special characters are enclosed in parentheses 
and inserted into the message wherever they are 



Table 2. DMES Representation of Output Printer Control 
Codes 



DMES 
CHAR- 
ACTER 


ASSEMBLED 
CONTROL CODE 


FUNCTION 


ALPHA- 
MERIC 


NUMER- 
ICAL 


(P) 


0*71 


*1 


Type numerical period 


(M) 


04=72 


*2 


Change mode 


(C) 


0*73 


=*3 




(B) 


0*74 


*4 


Shift printer ribbon to black 


(A) 


0*75 


*5 


Shift printer ribbon to red (Alert) 


(T) 


0*76 


*6 


Tabulate printer carriage 


(S) 


0*77 


*7 


Space printer carriage one position 


(R) 


0*78 


*8 


Return printer carriage and advance 








one line 


(F) 


0*79 


*9 


Advance printing form to next form 








feed stop 


(E) 


0*0* 


** 


End of message 



needed. (Note: Parentheses are not permitted in the 
"data" portion of a message operand.) 

If information is to be placed into a message some- 
time after it is stored, the space must be reserved by 
the programmer when the statement is written. This 
is normally done by writing zeros in the message in 
place of the data which is to be inserted later. 

The length of the message need not be specified 
by the programmer; however, if the number of core 
storage locations needed to contain the message ex- 
ceeds 100, an error is indicated. Note: Control charac- 
ters require two core locations when in numerical 
mode and four locations when in alphabetic mode.) 

Flagged digits can be placed into a numerical mes- 
sage by substituting the letter J-R for 1-9. A flagged 
zero is indicated by a (card only). 

Some examples of dmes statements are shown in 
Figure 9. In the example of alphabetic mode, notice 
that the programmer has assigned the symbolic ad- 
dress mesag and therefore is responsible for the cor- 
rect positioning of the entire message. Since the mes- 
sage begins in the alphabetic mode, the address 
assigned to mesag corresponds to the second digit of 
the stored data. 

In the example of a mixed-mode message, zeros 
were placed in the message to reserve space for tem- 
perature and pressure readings. These are normally 
inserted in the message before it is typed out. 

Invalid Mode Changes 

Since the ibm 1717 Output Printer and the ibm 1620 
console typewriter both require alpha messages to 
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Numerical Mode 



Line 
3 5 


Label 

6 11 


Operation 
12 15 


Operands & Remarks 

14 20 25 30 35 40 45 50 55 60 


0.1.0 


WA, ■ , 


DM£,S 


yy c .e.'ijoao.o.o.c ,r,),/ &,sx 3,) ,0.0.0/ ,s,).7,z,r ',«.> .8.27X.O 



CORE STORAGE 
TYPED OUTPUT 



+ 8 00000 *6 185 ±7 000 4 7 72 ±8 827** 

00000 185 000 72 

827 



Alphabetic Mode 



Line 
3 5 


Label 

6 11 


Operation 
12 15 


Operands & Remarks 

16 20 25 30 35 40 45 50 55 60 


0,1.0 


ft,L,P t HA 


DM.ES 


M,E,S.A,6. } A.j X.R.)STA.RJ. PfiOAX S) ATXM) 5.987XEJ. 



CORE STORAGE 

(Address of ALPHA and MESAG) ■ 

TYPED OUTPUT 




* 78626341596300575956470*7741630*78757978770*04: 



START PROG AT 
5987 



Mixed Mode 



L.ne 
3 5 


Label 

6 1 1 


Operation 
12 15 


Operands & Remarks 

16 20 25 30 35 40 45 50 55 60 


0.1,0 


M,/,X,£,D 


OM.ES 


) A.y(.X.)T£MPXM)XSJa.O0X.P.).OX.MXM),P*£$XM).(fi.).O.aaoX.£j> , 



CORE STORAGE 
TYPED OUTPUT 



0*78634554570* 72*7000*10*8*2575945620*72 *70000** 



TEMP 000.0 
PRES 0000 

Figure 9. Examples of SPS DMES Statements 



start at even core addresses, an invalid message can 
be created when programming a change from numeri- 
cal to alphabetic mode. The invalid mode change 
occurs when the alphabetic characters following the 
change are assigned addresses starting at an odd core 
location instead of an even core location. Such an 
assignment is incorrect and is indicated as an error. 
The user may either enter the correct dmes statement 
manually from the console typewriter, or he may 
allow the processor to: 

1. Assemble the mode change (4=2). 

2. Place a in the location following the mode 
change (i.e., =4=20), 

3. Assemble the remainder of the message. 

Summary of Declarative Operations 

As stated earlier, areas being defined by the processor 
are assigned core storage locations in the order in 



which they are processed. To do this, the processor 
program uses a location assignment counter to keep 
track of the address of the last assigned storage loca- 
tion. Table 15 in the Appendix shows the amount add- 
ed to the location, assignment counter for each instruc- 
tion and summarizes the coding and operation of each 
declarative mnemonic. 



7620/7770 Imperative Operations 

Imperative operations may be divided into five classes: 

1. Arithmetic 

2. Internal data transmission 

3. Branch 

4. Input/Output and control 

5. Miscellaneous 
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This section describes the five classes of imperative 
operations and gives some examples of statements 
written in symbolic language. For a detailed descrip- 
tion of the function of each machine language in- 
struction, refer to the appropriate machine reference 
manuals. 

Arithmetic 

Arithmetic operations are those that involve adding, 
subtracting, multiplying, or dividing. Table 16 in the 
Appendix is a list of all arithmetic mnemonics and 
a brief description of their P and Q address functions. 

Some examples of arithmetic statements written in 
symbolic language follow: 



Some examples of internal data transmission state- 
ments written in symbolic language follow: 



Line 
3 i. 


label 

t ii 


Operation 

13 15 


Operands & Remarks 

16 20 25 30 35 40 4S 50 


0.1 .0 




TP, , 


F.I, EXP., PJ '.G.I X 










0,3,0 




TM 


F,I,E,IP.,3. 










0,3,0 




Tf, , 


ST,0,R.E.,.R.A,T.E.l,*,-,mV,E, RATE. .1, XO. SXO.RE. . . 










0,4 ,0 




Tftt 


$,TM£.,3S,ZS.>,>rtO,V.E 03AZ.S TO. STORE 










0,5 ,0 




Tftt 


*rJJ,,.4,l,,J,0.,CMGI. .P.R.E.V. OP. C.0P.E. .T.O. .NOP. 










0,4 ,0 




T//,S, 


A.>,B,,,,.C,0tfy,E.RT f.LD. .A. T.O, .NMftE.R, .C.0.D.I H.G. . 










0,7.0 




Tm 


C,>P>,>,C.O,N,V.E.RX. .F.LA ,D. XO. AL.P.H.A. .C.OP.I N.G, . 



Line 

3 5 


Label 

i n 


Operation 

13 is 


Operandi & Remarks 

14 30 35 30 35 40 45 50 


0.1.0 




A, , , 


C.O.ST.,. LABOR. 










0,3,0 


— i — i — i — i — 1_ 


4, , , 


CASJ,UAB,0,R,,,,,APA MB.0.R XO, X.O.SJ, 




i , i i i 


i t i 


iiii' i , i , i , i i , i i i i > i i i i i 


0,3,0 




S,ff , 


S,T,0,R,E.+.4,,,2„.lO. 










0,4,0 




M , 


8,8,,,0&,,l,0,, l H.AL,F,-ADS.U,ST. .P.O.S.I.T.I ,V.E. .AM.T. . . 










f.5|0 


ii,,. 


l-P, , 


91„PP.NP 










0,«,0 




P, , , 


MifAM , 



These statements cause the following operations 
to be performed: 

Line 010 — Add labor amount to cost amount. 

020 — Same as line 010 except three commas 
are required for remarks. 

030 — Subtract a constant 02 from the field 
located at store plus 4. 

040 — Add a constant 05 to the field at storage 
location 00088. 

050 — Move ddnd (dividend) to the product 
area (storage location 00097). 

060 — Divide the dividend by successive sub- 
tractions of the dvr (divisor) starting 
in storage location 00086. 

Internal Data Transmission 

Internal data transmission operations are those that 
cause the movement of data from one core storage 
location to another. They require both a P and a Q 
address. Table 17 in the Appendix lists all internal 
data transmission mnemonics and their P and Q 
functions. 



These statements cause the following instructions 
to be executed: 

Line 010 — A numerical digit at the location called 
digit is moved to the location called 

FIELD. 

020 — A digit 3 is moved to the location called 

FIELD. 

030 — Rate 1 is moved to the field called 

STORE. 

040 — A constant 3525 is moved to the loca- 
tion called store. 

050 — A constant 41 is moved to the O and Oi 
positions of the preceding instruction in 
the object program. 

060 — Field A is moved to field B and con- 
verted from alphameric coding (2 digits 
per character) to numerical coding (1 
digit per character). 

070 -Field D is moved to field C and con- 
verted from numerical coding to alpha- 
meric coding. 

Branch 

Branch operations are used to alter the normal se- 
quence of instruction execution. They may be con- 
ditional or unconditional. Table 18 in the Appendix 
lists the branch mnemonics and their P and Q address 
functions. Also listed in this table are the two com- 
pare mnemonics. Compare operations, though arith- 
metic in nature, perform a distinctly logical function. 
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Some examples of branch and compare statements 
written in symbolic language follow: 



Line 
} s 


Label 
< ii 


Operation 

1} IS 


Operands & Remarks 

14 30 75 30 35 40 « 50 


S, < .0 




c, , , 


B.,,A.i.i. COMPARE. FJ.EX.P. A. .W.UJH. .F.I.E.LA & . . 
















S.TA.R.T.,,,.,BR.fl.NC,H, ,r,0, IA.8.E.L, ,S.TA,R.T. 


, i i 




i i i 




0.3,0 


i i i i i 


8J, ■ 


3,TA,R,T,,J,0.0,,.,J.f. ,SM/. .0,M.,, ,B,R, ,T,0, .START, , . 










?l«|0 




Bfi l / I 


S,TA,R,T,,,,,,$AME, A.S. ,LJM.E. ,0,3,0, ■ , , , . 










«iM 






s,rAAr.+,3,*,i.2.,.>,> 










,< ,0 




BA , 





These statements cause the following operations to 
be performed in the object program. 

Line 010 — Compare field A with field B. 

020 — Branch to an instruction labeled 

START. 

030 — If Program Switch 1 is on, branch 
to the instruction labeled start. 

040 — Same as line 030 with the exception 
that the unique mnemonic operation 
code used does not require a Q 
address. 

050 = If Program Switch 1 is not on, branch 
to the third instruction following the 
one labeled start. 

060 — Branch unconditionally to an in- 
struction whose address is saved in 
IR-2 or PR-1. 

Input/Output and Control 

Input/Output operations enable the transfer of data 
between core storage and various I/O units; control 
operations do not affect data, but rather pertain to 
electro-mechanical operations of I/O units. Table 19 
in the Appendix lists the input/output and control 
mnemonics and their P and Q functions. 

Some examples of input/output and control state- 
ments written in symbolic language follow: 



Line 
1 s 


label 
< II 


Operation 
12 IS 


Operands & Remarks 

U 10 JS 30 35 40 45 SO 


0. 1 .0 




WA , 


0Ur.PV.Ti. 1.00. 










0,3.0 




Mr J 


O.UT.P.U.T.,.y,S.ME. AS, .Ljtl.E, ,0.10. 










•It 




, , 


>. 1.0.1.,. y.SAME. AS. LIME. OAO. 








'••■■» i .. i i i i , >'>■■■■ , ■ 


0.4 .0 




SAW 


i i i i i i i i i i i i i i i i ■ i i i. i i i i i i .. i i i i i i i i i 
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These statements cause the following operations to 
be performed in the object program: 
Line 010 — Type out alphameric data from a stor- 
age location called output. 
020 — Same as line 010; however, a unique 

mnemonic is used. 
030 — Single space on the typewriter. 
040 — Same as line 030; however, a unique 
mnemonic is used. 

Miscellaneous 

Miscellaneous operations are those that do not fall 
into any of the operations described previously. Table 
20 in the Appendix lists the miscellaneous mnemonics 
and their P and Q functions. 

Some examples of miscellaneous statements written 
in symbolic language follow: 



Line 
3 5 


Label 


Operation 
13 is 


Operands & Remarks 

l< 20 » » 35 40 45 SO 


0.1.0 




CF 


ourpujr?, 














m , 


i,VAi.w,»i.i 








1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


P.JlO 




f< ■ i 


,s,jHMJ. i 










0|M 




Nfi t P t 





These statements cause four different operations to 
be performed in the object program as follows; 
Line 010 — Clear a flag at the storage location, 
output minus 5. 
020 — Move a flag from storage location 2694 

to storage location 3352. 
030 — Cause the program to halt. 
040 — Perform no operation but proceed to 
the next sequential instruction. 

Processor Control Operations 

The sps language includes the following five control 
operations: 

dorg Define Origin 

dend Define End 

Head Heading 

tcd Transfer Control and Load 

tra Transfer to Return Address 

These operation codes are orders to the processor 
that give the programmer control over portions of the 
assembly process. Specifically, dorg gives the pro- 
grammer control over the placement of his program 



in storage, dend, tcd, and tra order the processor to 
produce unconditional branches to locations specified 
by the programmer, head assigns unique characters 
to labels or symbols used within a source program. 

With the exception of tra and dorg, none of the 
preceding operations may be labeled. 

DORG — Define ORiGin 

The dorg statement instructs the processor to over- 
ride its automatic assignment of storage and to begin 
the assignment of succeeding entries at the particular 
location specified by the programmer. In this way, 
the programmer is able to control assignment of stor- 
age to instructions, constants, and data. 

A define origin statement is coded as follows: 



Lin* 

X. 1 


Lobe' 
t ll 


Operation 
12 IS 


Operands & Remarks 

\6 M 25 30 35 40 45 SO 


0.1.0 






7.8.Z0. 



This statement directs the processor to reset its loca- 
tion assignment counter to the particular address spe- 
cified in the operand (actual or symbolic). This 
causes the assignment of succeeding entries to begin 
at this address. When an actual address is entered by 
the programmer, care must be taken to avoid inad- 
vertent overlapping of areas assigned by the proc- 
essor. 

If the operand is left blank, assignment of storage 
starts with an address of 00000. Since the Monitor I 
System occupies locations 00000 through 02401, con- 
stants and instructions at object time cannot occupy 
these storage locations. 

If a symbolic address is entered, it must appear as 
a label earlier in the program sequence. An * address 
refers to the current contents of the location assign- 
ment counter. A define origin statement can take any 
of the following individual forms: 



Lint 

1 J 


label 
i ll 


Operotior 

19 19 


Operands & Remarks 

1* 20 M 30 35 40 45 SO 


0.1 .0 




DfiAfi 


XYZ 










O.J.O 


OAJ&JH 




xyz+Ao 










0,1,0 






*,+£,O.,.L0,CAT./ fi,N. AASJGM ,C,0,UMT,£.e,+S.O. . . . . 



been assigned to the symbol xyz plus 50. The symbol 
origin can be used at any point in the program to 
refer to that address. The third entry directs the proc- 
essor to begin the assignment of succeeding entries 
at the address specified by the current contents of the 
location assignment counter plus 50. A comma must 
follow the operand when remarks are included in the 
dorg statement. 

DEND — Define END 

The dend statement is the last statement entered in 
the source program; it informs the processor that all 
statements of the source program have been process- 
ed. The dend statement requires the presence of an 
operand representing the starting address of the pro- 
gram. The operand may be actual or symbolic. 

The following statement illustrates a dend statement. 



Line 


Lobel 


Operation 

12 IS 


Operands & Remarks 

IS 20 2S 30 3S 40 45 SO 


o.l ,0 




D.£M 


STA.RT. 



HEAD — HEADing 

It is frequently convenient, and sometimes necessary, 
to write a source program piecemeal and to assemble 
these pieces into the total program. Parts of the pro- 
gram may be written by different programmers, or by 
the same programmer at different times with consid- 
erable time lapses between. 

Suppose, in such a situation, that a program block, 
say Bi, has been written; that another program block, 
Bo, is in the course of being written; and that Bi and 
B 2 eventually are to be joined to compose a single 
program. Certain symbols may already have been 
used to write block Bi, and certain symbols, varying 
from the symbols used in Bi, may be used to write 
block B 2 . To avoid duplication of symbols in each 
block, the programmer writing block B 2 must be con- 
cerned with the symbols used in Bi. 

Symbols used in block B 2 can duplicate those in 
Bi, provided they are less than six characters in length 
and have been prefaced by a head statement. The 
programmer can completely ignore the symbols in Bi 
by prefacing B 2 with the following control statement: 



If xyz (label) is previously defined as 7002, the 
first entry directs the processor to begin the assign- 
ment of succeeding entries at location 7002. The sec- 
ond entry directs the processor to begin the assign- 
ment of succeeding entries at the location that has 



Line 

3 S 


Label 
t 11 


Operation 
12 is 


Operands & Remarks 

14 20 25 30 35 40 45 SO 


9.1,0 






X 



where the single character X may be any one of the 
characters A to Z, to 9, or blank. 
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The control statement, head x, generates no in- 
structions or data in the object program. When the 
processor encounters a head statement, it treats the 
symbols in the label or operands fields of the follow- 
ing statements, provided the symbols are less than six 
characters in length, as though they were headed by 
the character X. The processor continues to do this 
until it encounters another head statement. 

Thus, the symbols used in block Bi which contain 
less than six characters cannot possibly conflict with 
the symbols used in block B 2 . Six-character symbols 
are not affected, that is, a 6-character label, common, 
following the control statement head 9 is not treated 
as 9 common, for it would be a 7-character symbol, 
and only a maximum of six characters can be handled 
by the symbol table. 

A symbol is said to be "unheaded" if, and only if, 
its representation uses exactly six characters. The sym- 
bol common, for example, is unheaded. The symbol 
alpha whose length is less than six characters is con- 
sidered to be headed, whether under a head control 
statement or not. If alpha is under control of head x, 
then alpha is said to be "headed by x." If alpha is 
not under control of any head statement, then alpha 
is said to be "headed by blank." 

A symbol, alpha, headed by the character x, is not 
identical to the symbol xalpha. The heading char- 
acter is essentially on a different level from the char- 
acters which make up the symbol. However, alpha 
headed by a blank should be regarded as identical to 
the symbol alpha used without a heading statement. 

If a head statement with a nonblank character does 
not occur in the entire source program, all considera- 
tions of heading can be ignored. This is the reason 
for not introducing the concept of headed symbols 
earlier. 

A head statement with a blank character must be 
used if the programmer desires to modify the heading 
process in the example. Note that the statement head 
and the statement head are quite different. For ex- 
ample, if blocks Bi and B2 are to be joined in one pro- 
gram, and B 2 must be nested somewhere in the middle 
of Bi, as follows: 

Operation Operands 

• j- first part of block Bi 
HEAD X 

• j block B 2 

HEAD 

[ second part of block Bj 



the entire program might have been prefaced by 
a head statement with a blank character operand. As 
implied previously, however, such a head instruction 
is superfluous, since the symbols in the first part of 
block Bi are automatically headed by blank, being 
under the control of no head instruction at all. 

Often it is inconvenient to refer to a symbol that is 
defined in another headed region because of the 
requirement that the symbol be six characters in 
length. To facilitate cross referencing between headed 
blocks, the following convention can be used: 

Suppose that a symbol, say sum, under head 1, has 
been defined by some instruction. Suppose further 
that this symbol is to be referred to in an instruction 
under the control of the instruction head 2. Then the 
desired reference can be made by writing 1$sum as it 
appears in the following instruction. 



Line 


Label 


Operarior 






Operands & Remarks 


3 5 


4 11 


1: IS 


14 20 25 30 


35 


40 45 50 


0.1 .0 




, , 


T,OJA,t-.>,l,$.S,UM 



In general, if the two characters "C$," where C is 
any allowable heading character, are placed in front 
of the headed reference symbol sum, then the result 
is sum headed by C. To specify sum headed by 
blank, one simply writes $sum, with no character 
preceding the $ character. 

If the processor finds an operand containing a 6- 
character symbol plus a head character, such as 
9common, the processor will produce an error mess- 
age indicating that the symbolic address contains 
more than six characters. 

If a label is used in a head statement, it is ignored. 

TCD — Transfer Control and loaD 

The tcd statement may be used to cause the loader 
to execute an unconditional branch instruction. When 
this statement is encountered during the loading of 
the object (machine language) program, it causes the 
loader to break the normal loading process and to 
branch to the location (addr) specified in the operand. 



Line 


Label 


Operotior 








Operands & Remarks 


3 5 


t 11 


u 15 


14 30 


35 


30 35 


40 45 50 


0.1 .0 




TAP, 


A.Dfi.R 



addr may be actual or symbolic. 

This statement allows programs which are too large 
to fit into core storage to be loaded and executed 
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piecemeal, by terminating each piece with a tra 
statement. In effect, a tcd instruction can be used in 
conjunction with a dorg statement to execute portions 
of the program that have already been loaded into 
storage and to overlap these with other instructions. 

During assembly, the tcd instruction does not affect 
the location assignment counter or alter the symbol 
table. 

TRA — Transfer to Return Address 

The tra statement causes the normal loading se- 
quence of an object program to be resumed once it 
has been broken by a tcd statement. 

This processor control operation increments the 
location assignment counter by 42. The last statement 
of that part of a source program that is executed, when 
loading is interrupted by a tcd statement, must be a 
tra statement. When the tra instruction equivalences 
are encountered in the object program, the normal 
loading process is resumed. The tra statement, which 
takes the following form, uses no operands. 





lobd 


□pvorior 












oris 


1 i 


t ii 


U 


u 


JO 2 


9 30 


19 


40 49 


JO 


o.i. e 




t,/?,a, 





The following example illustrates the use of the 
tcd and tra mnemonics. 



line 

3 5 


lob.1 

< 11 


Operation 

12 IS 


Operands & Rtmoriu 

U 202S103S 40 49 5O 


0.1 .0 


SJARJ. 


(fir$t 


ihstruction) 


0.2.O 








0.3,0 






i ■ i i ■ ,1,.,, ■ 


0,4,0 


...1, 1 1 1 1 




— lIj — 1*1 1 — 11*11 — 1 — 1__ 1 — 1 — 1 — 1 — 1 — l-J — 1 1 1 — 1 1111 l_J ■ 


0,9,0 






1*1 1*1 i ■ 1*. , i ' 


Mit 








0|?l« 






START. 


0,1.0 






START. 


o.».o 






nipt J^tf ruction*) t _ _ 


1 ,0 .0 








'.',« 








1.2.0 









The tcd statement causes a branch to the location 
assigned to the symbol start, followed by the execu- 
tion of instructions from start through the tra state- 
ment. The tra statement causes a branch to the load 
program, which resumes loading the remainder of the 
object program beginning with the location labeled 

START. 



Product-Area Mnemonics 

Two mnemonics, save and rstr, are provided to allow 
1710 interrupt programs to make use of the product 
area (locations 00080 through 00099) during their 
operation, even though that area was being used by 
the main program when. the interrupt occurred. The 
save mnemonic should be inserted at the beginning 
of the interrupt routine where it will generate in-line 
instructions to store the contents of the product area 
in a specified location. The interrupt routine may then 
use the area but must restore the original contents 
(rstr) before returning control to the main program. 
The P and Q operands of these statements may be 
actual or symbolic and may be arithmetically adjusted. 

SAVE 

EXAMPLE 

XFER SAVE A, B 

where xfer is the address of the first instruction gen- 
erated by the use of the save mnemonic. 

A is the symbolic address of the leftmost position 
in the temporary storage area. This area can be re- 
served with a dss statement. The length of the area 
must be N + 1 digits where N is the number of digits 
in the product area to be saved. 

If loca is the label of the first digit of a 26-digit 
area in core storage, the statement: 

A10 SAVE LOCA, 75 

will cause the contents of the product area from ad- 
dress 00075 to 00099 to be stored in the first 25 loca- 
tions reserved at loca. A record mark will be placed 
in the 26th location. 

If locb is the label of the first digit of a 21-digit 
area in core storage, the statement: 

A100 SAVE LOCB 

will store the contents of the product area from ad- 
dress 00080 through 00099 and a record mark in the 
21 locations reserved at locb. The save mnemonic 
generates the following instructions: 

TDM 00100,0 

DC 1,<3>,« 

TR LOCB, 00080 

TDM 00100, 

RSTR 

EXAMPLE 

XFER RSTR A, B 
where xfer is the address of the first instruction gen- 
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erated by the rstr mnemonic. A represents the loca- 
tion in the product area into which the leftmost digit 
of the temporarily stored information is placed. This 
address should always be less than 99. If it is left blank, 
the product area between 00080 and 00099 will be filled 
in with the stored data. 

B represents the address of the leftmost digit in the 
record of information to be returned to the product 
area. 

If loca is the label of the first digit of an area 
where locations 75-99 have been stored by a save 
instruction, the statement: 

RSTR 75, LOCA 

will cause the product area from addresses 00075 
through 00099 to be restored with the information in 
the first 25 locations reserved at loca. 

If locb is the label of the first digit of an area where 
locations 80-99 have been stored by a save instruc- 
tion, the statement: 

RSTR , LOCB 

will return the information which was stored in the 
21 locations reserved at locb to product area address- 
es 00080 through 00099. 

The rstr mnemonic generates the following instruc- 
tions: 

TR 00080, LOCB 

TDM 00100, 

Since each of these two mnemonics generate in-line 
instructions, care should be taken when using address 
adjustment in the same areas where these mnemonics 
are used. 



1620 Subroutines 



A program or routine consists of a set of coded in- 
structions arranged in logical sequence; it is used to 
direct the 1620, 1710, or any ibm data processing sys- 
tem to perform a desired operation or series of oper- 
ations. Generally, programs contain one or more short 
sequences of instructions that are parts or subsets of 
the entire program, and that are used to solve a par- 
ticular part of a problem. These parts of the program 
or routine are called subroutines. 



Usually, a subroutine performs a specific function, 
is common to a number of programs, and may be 
executed several times during the course of the pro- 
gram of which it is a part (main program). For ex- 
ample, a subroutine that extracts the square root of 
a number may be required during the execution of a 
pipe stress analysis program. The same subroutine 
may be used to extract a square root in a bridge and 
truss design program. 



Classification of Subroutines 

An efficient programming procedure is obviously one 
in which all necessary subroutines are coded only 
once, are retained on file, and are incorporated into a 
program whenever the operation performed by the 
subroutine is required, ibm Programming Systems has 
developed, for the sps ii-d Symbolic Programming 
System, a group of subroutines that are more fre- 
quently required because of their general applicabil- 
ity. Seventeen subroutines are available; they fall into 
three general catgories: arithmetic, data transmission, 
and functional. 

Arithmetic subroutines 
Floating-Point Add 
Floating-Point Subtract 
Floating-Point Multiply 
Floating-Point Divide 
Fixed-Point Divide 

Data Transmission subroutines 
Floating Shift Right 
Floating Shift Left 
Transmit Floating 
Branch and Transmit Floating 

Functional subroutines (those that evaluate) 
Floating-Point Square Root 
Floating-Point Sine 
Floating-Point Cosine 
Floating-Point Arctangent 
Floating-Point Exponential (natural) 
Floating-Point Exponential (base 10) 
Floating-Point Logarithm (natural) 
Floating-Point Logarithm ( base 10 ) 

The methods used by the functional floating-point 
subroutines to evaluate the functions of arguments 
are shown in Table 3. 

The subroutines are written in machine language 
and are provided in card or paper tape form for 
floating-point numbers with either a fixed-length or 
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Table 3 SPS Subroutine Method of Evaluating Arguments 





METHOD 


SUBROUTINE 


FIXED LENGTH 


VARIABLE LENGTH 


Square Root 


Odd integer 


Odd integer 


Sine and 
Cosine 


Based on Hastings' 
approx imation* 


Series approximation 


Arctangent 


Truncated series 


Series approximation for 
arctangent 


Exponential 
(natural and 
base 10) 


Hastings' approximation 

10^. 10 is converted 

. B 
to e 


Series approximations of 
10^ and convert to e^ 


Logarithm 
(natural and 
base 10) 


Truncated series for 
In B. In B is converted 
to log 10 B 


Series approximation of 
In B and convert to log B 



* Hastings, Cecil Jr., Approximations for Digital Computers, 
Princeton University Press, Princeton, New Jersey. The 
Rand Corporation, 1955. 



variable-length mantissa. The terms "variable length" 
and "fixed length," as applied to subroutines in this 
manual, refers to the number of digits (L) in the 
mantissa, not to the length of the subroutine itself. 

The four sets of subroutine card decks or paper 
tapes with their identifying set numbers follow. 



Subroutine Set 



Set Number 



Divide subroutine for machines 00 
not equipped with the Automatic 
Divide feature. Does not call 
out or utilize the pick subroutine 

Fixed-length subroutine for 01 
machines equipped with the 
Automatic Divide feature. 

Variable-length subroutines for 02 
machines equipped with the Auto- 
matic Divide feature. 

Variable-length subroutines for 03 
machines equipped with the Auto- 
matic Floating-Point feature (The 
Automatic Divide feature is a 
prerequisite ) . 

A pick subroutine is included at object time when 
any of the seventeen subroutines previously mention- 
ed have been called by the object program. This sub- 
routine performs the function of obtaining the data 
specified for a subroutine, storing the result produced 
by that subroutine, and furnishing a return address 
to the mainline program. 



In addition to the Library subroutines, the user 
may include up to twelve subroutines of his own. The 
method used to incorporate these routines into the 
proper subroutine set on disk is explained under 
adding subroutines. Subroutines appear with the ob- 
ject program only at execution time. 



Subroutine Macro-Instructions 

All linkages for the 1620 subroutines are generated au- 
tomatically through the use of certain macro-instruc- 
tions. The programmer places the macro-instruction, 
related to a particular subroutine, in the source pro- 
gram at the point where the subroutine is desired. 
This causes the sps ii-d processor, during assembly, to 
generate linkage to the desired subroutine. In addi- 
tion, the processor arranges for the subroutine to be 
added to the object program at object time. 

The data and addresses required by the subroutine 
and supplied in the macro-instruction are incorporat- 
ed into the linkage instructions where they are made 
available for use. In this way, the subroutine obtains 
the information it requires to perform its given task 
and also to compute a return address to the main 
program. Control is returned to the main program 
at the completion of the subroutine by transferring to 
the return address (first instruction after the macro- 
instruction). The macro-instruction statement related 
to each subroutine is as follows: 

Arithmetic Subroutines 



line 
3 S 


label 
< 11 


Operation 
1J IS 


Operands & Remark* 

It JO 25 4! SO 


0.1 .0 




F A , 


A.,? .(Florins Add) 


0.9.0 






A, 3, (Flotiins Suklrtct) 


1,1,9 




m , 


A»,S (Hotting Mvltifli) 


0,4,0 


i i i i i 


FA , 


(Flouting Divide) ■ 


, 5 ,0 




D.iy, 


A,A,,A,1,,A1. . (Divide) 



Data Transmission Subroutines 



Line 
1 s 


label 


Operation 

12 is 


U 20 


0.1 .0 




F.S.K.S 


A , . 


. 2 .0 






1 , 


o,l,o 




Tf.L.S 




0,4,0 






a,,m , . 



Operandi & Remarks 



(Floating Shift -fttiht) 
(Floating Shift Left) 
.{Transmit Floating) 



>M , ■ (Branch, and Transmit Floating) 



Functional Subroutines 



0,1 .0 
0.2.0 
iiill 



0,5,0 
0,»0 
0,7,0 
0,1,0 



FSQK 



A.B 



FEXJ 



F.LN 



Operands & Remarks 



{Floating Square Hoot) 

F&lN[A t h~ (Floating Sine) 

wi [Floating Cosine) 

F'.Aj'N 'A^t^' ' (Floating Arctangent) 

A,,M , , {Floating Exponential, Natural ) . 
, (Floating Exponential, Base 10) 
(Floating Logarithm, Natural) 



A...B, 



r7 i i SA i , l B , , (Flodtiaa, Logarithm, Sase 10) 
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In the arithmetic statements, the B operands repre- 
sent the addresses of quantities to be added, subtract- 
ed, etc. For the fixed-point divide routine, two addi- 
tional operands, Al and Bl are required. These oper- 
ands, as well as the A and B operands for data trans- 
mission statements, are explained in greater detail 
under each macro-instruction as it is described. 

In the case of functional subroutine macro-instruc- 
tions, the B operand represents the address of the 
argument to be evaluated, while the A operand repre- 
sents the address where the result is placed in storage. 

When using a macro-instruction, the programmer 
must code the exact number of operands required for 
that macro-instruction. Every macro-instruction used 
with subroutines supplied by ibm Library Services 
has at least two operands. Added subroutines may 
have macro-instructions with up to nine operands. 
Remarks and flag operands are not permitted in 
macro-instructions. Omitted operands require the in- 
sertion of commas as in imperative statements. 

All operands in macro-instructions may be symbolic 
or actual; all are subject to address adjustment. If an * 
is used as an operand, its address is that of the left- 
most position of the first linkage instruction. 

Many subroutines have been paired (i.e., add and 
subtract, sine and cosine, natural and base 10 ex- 
ponential, natural and base 10 logarithm) into single 
subroutines to conserve storage by sharing those pro- 
gram steps common to both. The individual subrou- 
tines within each pair are distinguished from each 
other solely by the point at which they are entered. 
The correct entry point is obtained through the use 
of the macro-instruction pertaining to the particular 
subroutine desired. 

All subroutines are identified by a 5-digit code. This 
code identifies the subroutine as follows: 



Table 4. SPS Subroutine Group and Identification Numbers 



XX XX 



Set Number- 



Subroutine Number 
Number of Entries - 



Table 4 shows the pairing arrangements of the 
subroutines together with their respective identifica- 
tion numbers and their sequence in core when used by 
an object program. 

Note: The location of the pick routine is determined 
by the last address assigned by the sps processor dur- 
ing assembly. All other required subroutines will fol- 
low pick (in core) in the sequence of Table 4. Sub- 
routines not required are omitted. 



SUBROUTINE 



PICK 

DIV- 

FA 

FS. 

FM 

FD 

FSQR 

FCOS 

FSIN 

FATN 

FEXT 

FEX 

FLOG 

FLN 

FSRS 

FSLS 

TFLS 

BTFS 



IDENTIFICATION NUMBERS 



FIXED LENGTH 



Without 
Automatic 
Divide 



00011 



With 
Automatic 
Divide 



} 



01001 
01011 

01022 

01041 
01051 
01061 

01072 

01091 

01 102 

01122 

01 141 
01 151 
01161 
01171 



VARIABLE LENGTH 



With 
Automatic 
Divide 



02001 
02011 



02024 

02061 
02072 
02091 
02102 

02122 

02141 
02151 
02161 
02171 



With 
Automatic 
Floating 
Point 



03001 
03011 

^ 03024 



} 



} 



03061 
03072 
03091 
03102 

03122 



> 03144 



The assigned address may be determined by in- 
serting a dorg statement, with the desired address, 
immediately preceeding the dend statement. 

Linkage 

For each macro-instruction statement in a source pro- 
gram, two machine language linkage instructions, a 5- 
digit address for each operand, and a record mark are 
generated by the processor in the object program. 
These linkage instructions replace the macro-instruc- 
tion which never appears in the object program. A 
label written with a macro-instruction references the 
leftmost position of the first linkage instruction gen- 
erated. If the programmer wishes to use this label in 
address adjustment, he must remember that the loca- 
tion of the instruction following a macro-instruction is 
not label -f 12. 

The linkage instructions generated by the processor 
for a macro-instruction are equivalent to the fdllow- 
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ing series of symbolic instructions: 



Lint 
i I 


lotM* 

♦ U 


'? , a 


Operands & Romariu 

u » » » » <0 <s » 


0.1 .0 




TFfl 


PCX* J.0,,.«,+ >.9 


0.1.0 




B7 , 


sub;/?,,, s 


0.1.0 




DSA 


i i i i i i i i i i i i i i i i i i i i i i i i — i i i i i i i — i 


Mi» 





Tic' ' 


1 ,>l$t ,i • i . 



In this sequence of instructions, 
pck is the address of a fixed work area that is used 

to contain the operands of the macro-instruction. 
subr is a fixed location that contains the address of 

the desired subroutine. 
A, B . . . are the 5-digit addresses that are equivalent 

to the operands specified in the macro-instruction. 



Floating-Point Arithmetic 

Scientific and engineering computations frequently in- 
volve lengthy and complex calculations necessitating 
the manipulation of numbers that may vary widely in 
magnitude. To obtain a meaningful answer, prob- 
lems of this type usually require retention of as many 
significant digits as possible during calculation, and 
correct positioning of the decimal point at all times. 
When the computer is used for such problems, several 
factors must be considered, the most important of 
which is the location of the decimal point. 

In general, a computer does not recognize the pres- 
ence of a decimal point in any quantity during cal- 
culation. A product of 414154 results whether the fac- 
tors are 9.37 x 44.2, 93.7 x .442, or 937 x 4.42, etc. The 
programmer must be cognizant of the location of the 
decimal point during and after the calculation and 
arrange the program accordingly. In adding, the 
decimal points of all numbers must be lined up to 
obtain the correct sum. The programmer facilitates 
this arrangement by shifting the quantities as they 
are added. In the manipulation of numbers that vary 
greatly in magnitude, it is conceivable that the result- 
ing quantity could exceed allowable working limits. 

Processing numbers which are expressed in ordinary 
form, e.g., 427.93456, 0.0009762, 5382, -623.147, 
3.1415927, etc., can be accomplished on a computer 
only with extensive analysis to determine the size and 
range of intermediate and final results. The percent- 
age of time required for this analysis and subsequent 
number scaling is frequently much larger than the 
percentage of time required to perform the actual 
calculation. Moreover, number scaling requires com- 



plete and accurate information regarding the bounds 
on the magnitude of all numbers that come into the 
computation ( input, intermediate, output ) . Since pre- 
diction of the size of all numbers in a given calcula- 
tion is not always possible, analysis and number scal- 
ing are sometimes impractical. 

To alleviate this programming problem, a system 
must be employed which provides information re- 
garding the magnitude of all numbers in the calcula- 
tion along with the quantities in the calculation. Thus, 
if all numbers are represented in some standard pre- 
determined format that instructs the computer in an 
orderly and simple fashion as to the location of the 
decimal point, and if this representation is acceptable 
to the routine that performs the calculation, then 
quantities that range from minute fractions having 
many decimal places to large whole numbers having 
many integer places can be handled. The arithmetic 
system most commonly used, in which all numbers are 
expressed in a format that has these characteristics, 
is called "floating-point arithmetic." 

The notation used in floating-point arithmetic is 
basically an adaptation of the scientific notation that 
is widely used today. In scientific work very large or 
very small numbers are expressed as a number, be- 
tween one and ten, times a power of ten. Thus, 

427.93456 is written as 4.2793456 x 10 2 

and 

0.0009762 is written as 9.762 x 10 4 

In the 1620 floating-point arithmetic system, the 
range of the fractional part of the number is modified 
to extend between .10000000 and .99999999, that is, 
the decimal point of all numbers is placed to the left 
of the high-order (leftmost) nonzero digit. Hence, all 
quantities may be thought of as a decimal fraction 
times a power of ten. For example, 

427.93456 becomes .42793456 x 10 3 

and 

0.0009762 becomes .97620000 x 10 3 

where the fraction is called the mantissa, and the 
power of ten, indicating the number of places the dec- 
imal point was shifted, is called the exponent. The 
use of floating-point numbers during processing, be- 
sides offering advantages inherent in scientific nota- 
tion, eliminates the need for analyzing operations in 
order to determine the positioning of the decimal 
point in intermediate and final results, since the deci- 
mal point is always immediately to the left of the 
high-order, nonzero digit in the mantissa. 
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Format 

In 1620 floating-point operations, a floating-point 
number is a field consisting of a variable-length or 
fixed-length mantissa and a 2-digit exponent. The ex- 
ponent is in the two low-order positions of the field, 
and the mantissa is in the remaining high-order posi- 
tions, as shown: 

M MEE 

For the subroutines, the variable-length mantissa 
may have a minimum of two digits and a maximum of 
45 digits. Two operand fields that are added together 
must have mantissas of the same length. A flag over 
the high-order digit marks the extremity of the field. 
A fixed-length mantissa must have eight digits. 

The exponent is established on the premise that the 
mantissa is less than 1.0 and equal to or greater than 
0.1. The exponent always consists of two digits rang- 
ing between —99 and -}-99. A flag over the high-order 
(tens) digit defines the exponent. 

The high-order digit of the mantissa and the high- 
order digit of the exponent must contain flag bits to 
operate properly with floating-point subroutines. 

The mantissa and the exponent, if negative, must 
have an algebraic sign, represented by a flag, over the 
units position of the respective fields; if they are posi- 
tive, they are not flagged. A floating-point number 
with a negative mantissa and a negative exponent is 
represented as follows: 

M MEE 

Sign control of the results of all computations is 
maintained according to the standard rules of arith- 
metic operations. 



Normalizing 

In all floating-point numbers, the decimal point is 
assumed to be at the left of the high-order digit, 
which must be a nonzero digit. Such a number is 
referred to as normalized. When a number has one 
or more high-order zeros, it is considered to be un- 
normalized, unless the number itself is zero. An un- 
formalized number resulting from a floating-point 
subroutine computation is normalized automatically, 
but unnormalized terms are not recognized as such 
when entered as data. Therefore, it is necessary for 
all data to be entered in normalized form. Although 
unnormalized numbers will be processed, correct re- 
sults cannot be assured. For example, the number 
0682349405 should be entered as 6823494004, assum- 



ing the fixed-point number is 6823.494 and an 8-digit 
mantissa is required. 

The following examples demonstrate the conversion 
of numbers in ordinary form to 1620 floating-point 
notation for an 8-digit mantissa. 



Number 
123.45678 

.00765438 
-.12348693 
-.00000070 
.00000000 



Normalized 

.12345678 x 10» 
.76543800 x 10' 2 
.12348693 x 10° 
.70000000 x 10« 
.00000000 x 10" 



1620 
Floating Point 

1234567803 
7654380002 
1234869300 
7000000006 
0000000099 



note: A zero mantissa is associated with a 99 expon- 
ent. With any other representation of zero, accuracy 
cannot be assured. 

The result of a floating-point operation is normaliz- 
ed automatically. For example, the result .00123456 
when normalized becomes 123456NN02, where N is 
an inserted digit (0 through 9) and 02 is the expon- 
ent. The value of the N digit (sometimes referred to 
as a noise digit) is determined by the programmer, 
who in most cases will choose to use zero. At object 
time the noise digit can be found at location 02401. 

Effects of Normalizing 

In normalizing, certain low-order digits in the man- 
tissa may lose significance. To recognize these digits, 
the floating-point arithmetic can be performed twice, 
using a different N digit for each run, e.g., zero for 
the first run and nine for the second run. The sig- 
nificance of these digits can be readily distinguished 
by comparing the two results. For example, if the 
programmer compares the following: 



Result, 1st run 
Result, 2nd run 



Mantissa 
.12345000 
.12345099 



Exponent 
~ 04 
04 



he will see that the two low-order positions of the 
mantissa have lost significance because they are sig- 
nificantly different. 

When intermediate floating-point results enter into 
additional floating-point calculations, inserted digits 
may become a part of the result of the additional 
calculation. 

In the case of lengthy computations using floating- 
point results, precision gradually decreases because 
of truncation. The magnitude of the truncation error 
depends on the individual computation process and 
cannot be predicted without a knowledge of the 
process in question. However, the truncation error in 
such cases is usually no greater than the degree of 
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error present in a rounded amount. Results in floating- 
point subroutines are not rounded. The maximum 
truncation error for a fixed-length mantissa will not 
exceed 10 8 or, for a variable-length mantissa, 10~L, 
except under certain conditions described in the ex- 
planation of floating-point functional subroutines. 

Exponent Overflow and Underflow 

In the 1620 floating-point subroutines, numbers with 
a magnitude equal to or greater than 10" create a 
condition called exponent overflow; those with a mag- 
nitude of less than 10" create a condition called 
exponent underflow. 

If either of these conditions is generated as a result 
of an arithmetic operation, the resultant field is set to 
the most reasonable value under the circumstances, 
and operation is resumed (see Table 5). The pro- 



grammer is not given a visual indication when an 
error occurs; however, a core storage location (00401) 
is set to reflect the type of error. The programmer can 
interrogate this location for the following digits: 

4= — no error 
1 — exponent overflow 
1 — exponent underflow 
— value cannot be calculated 
— loss of accuracy in fsin or fcos, or negative 
input argument to fsqr or fln 

Location 00401 is reset to the "no error condition" 
(=j=) by the pick subroutine; therefore if it is to be 
interrogated, the interrogation must be done before a 
new subroutine is entered. 

When the digit in location 00401 indicates that an 
error has occurred, the user will most likely initiate 
some corrective action. The information that follows 
should be of some assistance if this situation arises. 



Table 5. SPS Subroutine Errors 



DESCRIPTION OF ERROR 


CONTENTS 
OF 00401 


RESULTANT FIELD 


FA or FS, exponent overflow 




99. . 


.999 


FA or FS, exponent underflow 




00. . 


.099 


FM, exponent overflow 




99. . 


.999 


FM, exponent underflow 




5o. . 


.099 


FD, exponent overflow 




99. . 


.999 


FD, exponent underflow 




00. . 


.099 


FD, attempt to divide by zero 


6 


If 7n~ : 

mantissa of dividend unchanged, 
exponent of dividend = E + 99. 
If 0/0" : 

mantissa of dividend unchanged, 
exponent of dividend - -99 


FSQR, input argument is negative 





Vlxl 


FSIN or FCOS, input argument has 
exponent value greater than the 
mantissa length 


6 


00. . 


.099 


FSIN or FCOS, input argument has 
exponent value (X) such that 03 — X— L, 
where L is the mantissa length 





SIN (X) or COS (X) 


FEX or FEXT, exponent overflow 


T 


99. . 


.999 


FEX or FEXT, exponent underflow 


i 


00. . 


.099 


FLN or FLOG, attempt to take log 
of zero 


6 


99. . 


.999 


FLN or FLOG, input argument is 
negative 





LN ( 


|x| )orLOG( |x| ) 
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Symbolic Addresses Description of Data 

PCK -f- 10 Return address of mainline pro- 
gram 

PCK + 15 Address of A operand data (re- 
sult) 

PCK + 20 Address of B operand data 
PCK -f 33 Mantissa length in use 
PCK + 36 Noise digit in use 

Note: pck = 02365, a fixed location in core storage at 
object time. 

Overflow and/or underflow conditions can arise in 
only six of the floating point subroutines presented in 
this manual, namely, the four arithmetic subroutines 
and the two exponential functional subroutines. 

Arithmetic Indicators 

During the execution of arithmetic subroutines, the 
overflow, high/positive, and equal/zero indicators are 
used. The overflow indicator is always reset at the 
beginning of each arithmetic subroutine. If it is desir- 
ed to determine its status prior to the execution of an 
arithmetic subroutine, the indicator must be tested 
and its condition stored before the linkage instruc- 
tions are executed. The high/positive and equal/zero 
indicators are set according to the mantissa of the 

result. Whenever a zero mantissa results (0 099 ) , 

the equal/zero indicator is turned on. 

At the conclusion of a functional subroutine, the 
status of the high/positive, equal/zero, and overflow 
indicators does not necessarily reflect the result of the 
operation, because the indicators are disturbed during 
the execution of a functional subroutine. Therefore, 
their status at the conclusion of a functional sub- 
routine should not be assumed to be the same as it 
was prior to the execution of the subroutine. 



2. Resets location 00401 to "no error condition" 
(40. 

3. Stores the calculated result in the proper storage 
area and branches back to the mainline program. 
This function is used as required by the indi- 
vidual subroutine. 

4. Provides constants and working storage for the 
other subroutines. 

The average execution time for the pick subroutine 
can be determined by the formula: 

Average time ( in /usee ) = 40 L -f- 4640 

where L = the length of the mantissa. The numbers 
are expressed in microseconds. Therefore, an 8-digit 
mantissa (same as fixed-length mantissa) requires 
4960 fisec. 

40x8 = 320 
4640 



4960 fisec 

or approximately five milliseconds ( ms ) . 

Note: For the variable length subroutines used with 
the Automatic Floating-Point feature: 

Average time (in fisec) = 40 L -j- 2080 

Floating Add 

Macro-instruction 



Lin* 


label 


OptraHon 






Operands & RtmaHcs 


1 1. 


f !.! 


12., , '» 




i 30 3J 


40 4S M 


0,1.0 




M, , 


A...B. 



Description of 7620 Subroutines 

In this section the various subroutines are described 
together with examples of how the associated macro- 
instructions are written. For average execution times 
of all subroutine macros, refer to Table 23 in the 
Appendix. 

PICK 

This subroutine is common to all fixed-length and 
variable-length subroutines. The pick subroutine, dur- 
ing execution of the object program: 

1. Sets up A and B operands to be operated upon, 
calculates the return address to the mainline pro- 
gram, and then returns to the user's subroutine. 



The A and B addresses refer to the units position of 
the exponent of the fields:- 

MMMMMMMMEE 

t 

address of field 

where the E's represent digits of the exponent and the 
M's represent digits of the mantissa. Neither A nor B 
should reference any location within the Product Area 
(i.e., the area used to contain products and quotients). 

Operation. Field B is added to field A. The floating- 
point sum replaces field A; field B remains unchanged. 
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Floating Subtract 

Macro-instruction 



Lint 


Lobtl 


Operation 








Operands & \ murks 


1 5 


< 11 


n is 


14 30 3 


i JO 


1] 


40 45 SO 


t,i,9 




W , 


A. A 



The A and B addresses refer to the units position of 
the exponents of the fields. Neither A nor B should refer- 
ence any location within the Product Area. 

Operation. Field B is subtracted from field A. The 
floating-point difference replaces field A; field B re- 
mains unchanged. 

Floating Multiply 

Macro-instruction 



Lin* 


Label 


Operation 










Operandi & Hemarta 


3 5 


t ii 


11 15 




95 




15 


40 45 10 


0.1 .0 




F M , 


A,B 



The A and B addresses refer to the units position of 
the exponents of the fields. Neither A nor B should refer- 
ence any location within the Product Area. 

Operation. Field A is multiplied by field B. The 
floating-point product replaces field A; field B re- 
mains unchanged. 

Floating Divide 

Macro-instruction 



Lint 


Label 


Operation 










Operands A Remarks 


1 i 


4 n 


'? '1 


14 X 


is 




15 


40 45 SO 


!■!•« 




W , 


A,M 



Operation. Field A is divided by field B. The float- 
ing-point quotient replaces field A; field B remains 
unchanged. Neither A nor B should reference any loca- 
tion within the Product Area. 

Fixed-Point Divide 

Macro-instruction 



Lino 


labtl 


Operation 








Operandi & Remarks 


J i 


t II 


,12, „_!i 


UK » 


N 


IS 


40 45 50 


0.1.0 




d,/ y, 


A,,B,,.AX,,Bi 



In addition to the A and B operands, which represent 
the addresses of the dividend and divisor, the divide 



macro-instruction requires two additional operands; 
one specifies the number of zeros to be inserted to the 
right of the dividend (Al operand) and the other, 
the shift factor needed by the subroutine (Bl oper- 
and). Specifically, 

A operand is core storage address of dividend ( must 
not reference Product Area ) . 

B operand is core storage address of divisor (must 
not reference Product Area ) . 

Al operand is 00099 minus the number of zeros de- 
sired to the right of the units position of the 
dividend. 

Bl operand is 00100 minus the length of the quo- 
tient. The quotient must be at least two digits 
in length. 

Note: The quotient address after the division is ex- 
ecuted will be equal to 00099 minus the length of the 
divisor. 

Prior to the divide operation, the divide subroutine 
always resets to zeros (clears) positions 00080 
through 00099, the product area where the 20-digit 
quotient and remainder are developed. For variable- 
length mantissa subroutines, the divide subroutine 
clears core storage positions 00001-00099 to zeros. 
When the quotient plus the remainder exceeds the 
number of positions cleared to zeros, positions lower 
than the last position cleared must be reset to zeros 
by programming. One additional position should also 
be cleared to allow for a possible overdraw. For ex- 
ample, if 25 positions are required for the quotient 
and remainder in a fixed-length mantissa subroutine, 
00074-00079 should be reset to zeros before the divide 
macro-instruction is given. 

The fixed-point divide macro-instruction may be 
used with any of the subroutine sets. Whenever it is 
used, the fixed-point divide subroutine will be incor- 
porated into the object program at object time. For the 
subroutine sets that are designed to work with auto- 
matic divide, the fixed-point divide subroutine uses 
automatic divide in performing its operation. For the 
subroutine set that is designed to work without auto- 
matic divide, the fixed-point divide subroutine per- 
forms its operation as instructed by the routine with- 
out the aid of the Automatic Divide feature. Coding of 
the macro-instruction is the same for all of the sub- 
routine sets. 

Operation. The area to be cleared is automatic- 
ally reset to zeros. The dividend (A address) is trans- 
mitted to the product area (Al address), beginning 
at the low-order dividend digit and terminating at 
the flag bit marking the high-order position of the 
dividend field. The Al address is 00099 minus the 
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number of zero positions desired to the right of the 
dividend. 

The algebraic sign of the dividend is automatically 
placed in location 00099, regardless of where the 
rightmost dividend digit is placed by the Al address. 
A flag bit automatically marks the high-order digit 
of the dividend. 

The divisor (B address) is successively subtracted 
from the dividend. The Bl address of the divide macro- 
instruction positions the divisor for the first subtrac- 
tion from the high-order position(s) of the dividend, 
as in manual division. The Bl address is determined 
by subtracting the number of digits in the quotient 
from 100. For subroutines using program divide, the 
value of Bl must be between and 99. For subrou- 
tines using automatic divide, the value of Bl is not 
restricted. 

The quotient and remainder replace the dividend 
in the product area. The address of the quotient is 
00099 minus the length of the divisor. The algebraic 
sign of the quotient (determined by the signs of the 
dividend and divisor) is automatically placed in the 
low-order position of the quotient. The address of the 
remainder is 00099; a flag bit is automatically placed 
in the high-order position of the remainder. The re- 
mainder has the sign of the dividend and the same 
number of digits as the divisor. 

The high/positive indicator is on if the quotient is 
positive and not zero; the equal/zero indicator is on 
if the quotient is zero. Neither indicator is on if the 
quotient is negative. 

The quotient must be at least two digits in length. 
This is the minimum field length that the 1620 will 
accept. 

EXAMPLES 

1. The macro-instruction 

DIV A, B, 99, 96 

will perform the division for 0273 )3972 and 
store the result 0014 in storage locations 00092 
through 00095. 

2. The macro-instruction 

DIV A, B, 96, 93 

will perform the division for 0273 )3972.000 and 
store the result <3bl4.549 in storage locations 
00089 through 00095. 

Note: In examples 1 and 2, A represents the address 
of the dividend 3972, and B represents the address of 
the divisor 0273. 



Incorrect Positioning of Divisor. The following 
error conditions are caused by an incorrect Bl 
address. 

1. An incorrectly positioned divisor can cause more 
than nine successful subtractions and an incor- 
rect quotient. The divide operation is terminated, 
the Overflow indicator and Overflow Arithmetic 
Check light are turned on, but processing will 
not stop unless the Overflow Check switch is 
set to stop. A divide by zero (K/0) causes the 
same error conditions just described. 

2. The high-order digit of the dividend is assumed 
by the 1620 to be one position to the left of the 
high-order digit of the divisor. The high-order 
digits of the dividend are lost if the divisor is 
positioned too far to the right. Processing con- 
tinues with no indication of an incorrect quotient. 

3. If the B address is less than 10000, i.e., between 
00100 and 00999, the divide operations will ter- 
minate when a subtraction occurs at 0XX99. This, 
in effect, restricts the size of the dividend to 
10,020 digits if only 20,000 positions of core stor- 
age are installed. 

Floating Shift Right 

M acro-instruction 



line 
3 5 


lobel 

i II 


Operation 
13 IS 


U 30 


n 30 


Operands & Remarks 

35 40 45 50 


0. 1 .0 




FSJfS 


A,S 



The effect of this macro-instruction is to shrink the 
mantissa by shifting it to the right and truncating the 
low-order digits. The A address is normally the units 
position of the mantissa. 

MMMMMMMMEE 

A 

units position of mantissa 

The B address specifies the digit of the mantissa 
which will become the low-order digit of the mantissa. 

Operation. The field at the B address (the portion 
of the mantissa to be retained) is shifted right to the 
location specified by the A address. The exponent is 
not moved or altered. For example, the macro-instruc- 
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tiori 

FSRS 00097,00093 
causes the mantissa 

30590011325701 

t t 

Storage Storage 
Address Address 

00093 00097 
to be shifted, producing the following result 
00003059001101 

t t 

Storage Storage 
Address Address 

00093 00097 

Vacated high-order positions are set to zeros, an exist- 
ing flag at the A address is retained for algebraic sign, 
and the field flag bit is transmitted with the high- 
order digit of the B field. 

Floating Shift Left 

Macro-instruction 



Line 


Label 


Operation 




Operands & Remarks 




i u 


1J IS 


l< » » 


10 35 40 45 50 


Di'.o 






fl,,B 



The effect of this macro-instruction is to expand the 
mantissa by shifting it to the left and filling the vacat- 
ed positions with zeros. It is important to note that 
the B address is the low-order position of the field 
moved, and the A address is the high-order position 
of the resultant field. 

Operation. The field at the B address, which is the 
low-order digit of the mantissa, is shifted left so that 
the high-order digit is moved to the location specified 
by the A address. The exponent is not moved or alter- 
ed. For example, the macro-instruction: 

FSLS 00090,00097 

causes the mantissa 

0011325701 

t t 

Storage Storage 
Address Address 

00090 00097 



to be shifted, producing the following result 

1132570001 

t t 

Storage Storage 
Address Address 

00090 00097 

An existing flag bit at the Q address is retained for 
algebraic sign; the field flag bit is transmitted with 
the high-order digit of the Q field. 

Transmit Floating 

Macro-instruction 



Line 
3 S 


Lobel 


Operation 
12 is 


Operands & Remarks 

i» JO JS » 35 40 45 50 


0.1.0 




TFLS 





The B address refers to the low-order digit of the 
floating-point field exponent, whereas the A address 
refers to the low-order position to which the field is 
transmitted. 

Operation. The field at the B address is transmitted 
to the location specified by the A address. The B field 
remains unchanged in storage. Flag bits in the three 
low-order positions of the B field are also transmitted. 
Starting with the fourth low-order position, only one 
additional flag bit is transmitted, and it stops trans- 
mission. 

Branch and Transmit Floating 

Macro-instruction 



Line 


Label 


Operation 






Operands & Remarks 


3 5 




12 IS 


l< JO JS 


30 35 


M <S 50 


0.1.0 






Atfl 







The B address is normally the low-order position of 
the floating-point field exponent, whereas the A ad- 
dress is the leftmost position of the next instruction to 
be executed. 

Operation. The address of the instruction following 
the macro-instruction is saved at a storage location 
in the btfs subroutine, and the field at the B address 
is transmitted to the A address minus one. The normal 
exit of a routine which is entered by a btfs is a Branch 
Back (bb) instruction. The instruction at the A ad- 
dress is the next one executed. The B field remains 
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unchanged in core storage. Any flag bits in the three 
low-order positions of the B field are transmitted. 
Starting with the fourth low-order position, only one 
additional flag is transmitted, and it stops trans- 
mission. 

Floating Square Root 

Macro-instruction 



Line 
] S 


lob*{ 


Operation 

12 IS 


14 20 25 3 


Operands & Remarks 

35 40 45 SO 


0.1 .0 










The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The square root of argument B is ex- 
tracted and the result, in floating point form, is stored 
at A. The argument, which must be in floating-point 
form, is unchanged by the operation. 

The floating-point square root subroutine accepts all 
numbers within the floating-point range that are 
greater than or equal to zero. If the argument is less 
than zero, a is placed in location 00401 and A is set 
equal to SQR |A|. 

Floating Sine 

Macro-instruction 



Line 
) s 


label 
4 u 


Operotion 
12 15 


1* 20 25 1 


Operands & Remark* 

35 40 45 SO 


O.I.O 




f.sj H 


L. 



The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The sine of argument B is computed and 
the result, in floating-point form, is stored at A. the 
argument must be in radians and in floating-point 
form. The computation does not disturb the original 
value of the argument. 

The floating-point sine subroutine accepts all num- 
bers of floating-point range up to and including ex- 
ponent 08 (fixed length mantissa) or L (variable 
length mantissa ) . 

For arguments with exponents less than 03, the 
magnitude of the maximum truncation error in the 
mantissa of the result does not exceed I0L. Accuracy 
in the mantissa of the result decreases as the size of 
the argument (exponent of 03 or greater) increases. 
For error codes, see Table 5. 



Floating Cosine 

Macro-instruction 



Line 

3 S 


Label 

6 11 


Operation 
12 IS 


Operands & Remarks 

14 20 25 30 35 40 45 50 


flj,>.° 






A.,B, 



The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The cosine of argument B is computed 
and the result, in floating-point form, is stored at A. 
The argument must be in radians and in floating- 
point form. The computation does not disturb the 
original value of the argument. 

The allowable range of the argument, maximum 
accuracy, etc., for the cosine subroutine is the same 
as that previously described for the sine subroutine. 

Floating Arctangent 

Macro-instruction 



Line 


Label 


Operation 




Operands & Remarks 
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35 40 45 50 
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The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The floating-point value of the arctan- 
gent of B is computed and the result is stored at A. 
The argument must be in floating-point form; the re- 
sult in radians will also be in floating-point form. 

The arctangent subroutine accepts any number 
within the floating-point range. During the evalua- 
tion of the arctangent of B, use will be made of the 
divide subroutine. 

The maximum truncation error in the mantissa of 
the result is ±10"L, except for results having an ex- 
ponent less than or equal to 02 (E^02). The maxi- 
mum error for these results is ± 1 in the (L+l)* 
decimal place. L = 08 for the fixed length mantissa. 

Floating Exponential (Natural) 

Macro-instruction 



Line 

3.. ' 


Label 
< it 


Operation 

«.,„ '» 


Operands & Remarks 

14 20 25 30 39 40 4S 30 


0. 1 .0 






A.,0. 



Operation. The A and B addresses refer to the units 
position of the exponents of the fields. The value of 
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the eB, where B is in floating-point form, is computed 
and the result, also in floating-point form, is stored 
at A. An input value that exceeds 

227.955924206n n(227955924206n n03) 

causes an exponent overflow, and one which is less 
than 

-227.955924206n n(227955924206n n03) 

causes an exponent underflow. Depending on the type 
of error, a 1 or 1 is placed in location 00401. 

For negative arguments, the subroutine uses the 
absolute value of the argument to evaluate the func- 
tion and then finds the reciprocal value. 

For positive and negative arguments, the maximum 
truncation error in the mantissa of the result is ± 10"L. 

Floating Exponential (Base 10) 

Macro-instruction 



Una 


Label 


Operation 






Operands & Remarks 
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The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The value of 10B is in floating-point 
form; it is computed and the result, also in floating- 
point form, is stored at A. An input value that exceeds 

98.9n. . .n(989n. . .n02) 

causes an exponent overflow, and one which is less 
than 

-98.9n . . ,n(989n . . .n02) 

causes an exponent underflow. 

This subroutine handles negative arguments in the 
same manner as they are handled by the natural ex- 
ponential subroutine. Maximum accuracy is the same. 

Floating Logarithm (Natural) 

Macro-instruction 



Line 


Lobe) 


Operator 
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The A and B addresses refer to the units position of 
the exponents of the fields. 



Operation. The floating-point value of the In B is 
computed and stored at A. Input arguments must be 
in floating-point form. 

This subroutine accepts all arguments greater than 
zero within the floating-point range. For error codes, 
see Table 5. 

Floating Logarithm (Base 10) 

Macro-instruction 



Line 


Label 


Operation 






Operands & Remarks 
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The A and B addresses refer to the units position of 
the exponents of the fields. 

Operation. The floating-point value of the log 10B 
is computed and stored at A. Input arguments must 
be in floating-point form. 

This subroutine accepts all arguments greater than 
zero within the floating-point range. For error codes 
see Table 5. 

Adding Subroutines 

The user may add from one to twelve subroutine 
macros to subroutine sets 01, 02, and 03. Each new 
subroutine may use from two to nine operands. Al- 
though the minimum number of operands allowed is 
two, both the A and B operands may be the same. 
To add a subroutine, it is necessary to: 

1. Modify the Op Code table to include the new 
mnemonic (see sps ii-d modification program). 

2. Write the subroutine in sps language, keeping in 
mind certain factors regarding pick, mantissa 
length (L), and modifications with regard to the 
subroutine itself. 

3. Assemble the subroutine in relocatable form, and 
store it on the disk. 

Modifying the Op Code Table 

The Op Code table is modified by executing the 
sps ii-d Modification Program. This program is pajt 
of the Monitor system; it is described later in the 
manual. 

Writing a Subroutine 

When writing a subroutine, the programmer should 
be aware of certain information concerning pick, 
namely: the functions of pick, pck area, linkages, 
common work areas in pick, and the means of signi- 
fying operands that are relative to pick and/or are a 
function of mantissa length. 
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FUNCTIONS OF PICK 

pick is common to all subroutines in the subroutine 
set. Therefore, it is to the advantage of the subroutine 
writer to make use of pick. The listing of the appro- 
priate pick subroutine ( furnished with the Library 
package) should be studied. Briefly, pick performs 
the following operations: 

1. Resets location 00401 (subroutine error digit). 

2. Moves A and B operands into pck -J- 15 and 
pck -f- 20, respectively. If more than two oper- 
ands are used, all should be handled by the 
users subroutine. 

3. Calculates the return address to the mainline 
program. However, if a subroutine uses more 
than two operands, the return address must be 
calculated by the subroutine itself. To calculate 
the return address, use the following formula: 

(PCK +10) + 5n + 1 if n is even, or 
(PCK +10) + 5n + 2 if nis odd 

where pck -j- 10 (before entering the pick sub- 
routine) is the address of the high-order digit 
of the first operand, and n is the number of 
operands. 

If pick calculates the return address (two oper- 
ands ), eleven is added to pck -f- 10. 

4. Moves the B operand (mantissa and exponent) 
into working area beta. If the A operand is also 
used by the subroutine for calculation, it (the 
A operand) must be moved by the subroutine 
itself. This requires two instructions: 

TF ALPHA, PCK + 15, 11 
TF ALPHA -2, PCK -f- 25, 11 

or one instruction if TFL is available on the 
machine. 

TFL ALPHA, PICK + 15, 11 

5. Sets error indicator 00401 for overflow and 
underflow. 

6. Stores the computed floating-point result in the 
location specified by the A operand. 

The functions of pick are not mandatory, but are 
under control of the user. When a subroutine is call- 
ed, the object program branches directly to the sub- 
routine. If the functions of pick are desired, the user 
may branch to pick via the following linkage: 

TFM PCK + 5, * + 20 
B7 PCK, , 6 



OPERANDS THAT ARE FUNCTIONS OF PICK 
and/or MANTISSA LENGTH 

Whenever pick is used, the programmer must use 
instructions in his subroutine which make reference to 
the pick subroutine (All references to pick must be writ- 
ten as relocatable quantities. ) The operands of these in- 
structions are then adjusted to make them correspond to 
the actual addresses of pick in the object program. 
This is done by using a pseudo constant ( dc state- 
ment). The constant does not become a part of the 
object program; its only function is to indicate that 
the instructions that follow are to be modified. 

One dc statement can modify up to 25 instructions. 
Each instruction, whether it is to be modified or not, 
requires two digits in the pseudo constant, one for 
the P operand and one for the Q operand. The state- 
ment itself consists of three operands: the first speci- 
fies the length of the constant which may not be 
greater than 50 nor less than 2; the second, the actual 
constant; the third, the storage address of the con- 
stant. This address must be specified as an absolute 
address of 00350. The P and Q operand modifier con- 
stants follow: 

P and Q Operand 



Modifiers Modification 

No Modification 

1 AddL 

2 Subtract L 

3 Add 2L 

4 Subtract 2L 

5 Modify with respect to pick, 
no L modification 

6 Modify with respect to pick, 
addL 

7 Modify with respect to pick, 
subtract L 

8 Modify with respect to pick, 
add 2L 

9 Modify with respect to pick, 
subtract 2L 



The following example shows how a variable- 
length mantissa subroutine may be modified by the 
use of modifier constants. 



DC 6, 527005, 350 

TF SAVE, 98 

SF SAVE 

TFL PCK + 15, SAVE , 6 

B7 PCK + 10, , 6 



Note: (1) Intervening dorg statements and constants 
between instructions are never modified in this manner. 
( 2 ) save is a relocatable quantity. 
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Assembling a Subroutine 

When a subroutine is assembled, it must be "Assem- 
bled Relocatable," stored in relocatable format, and 
must have the following items defined: 

1. Disk Identification Map (dim) entry 

2. Subroutine identification number 

3. Desired entry points 



Subroutine DIM Entry 

A subroutine dim entry is in the same general format 
as that described in the Supervisor section of this 
manual. However, the last two 5-digit fields specify 
the length of the subroutine and the subroutine identi- 
fication number instead of a core address and a start- 
ing or entry address. 

Subroutine dim entries occupy fixed locations in 
the dim table. There are 30 entries reserved for sub- 
routine sets 01, 02, and 03 (this includes an entry for 
pick in each set); only one entry is needed for set 00. 
The 30 entries are needed for the 17 subroutines ( plus 
pick) provided by ibm plus 12 subroutines that may 
be added by the user. 

To calculate the dim entry number for a new sub- 
routine, add the new subroutine number (18-29) to 
the base dim number for the applicable subroutine 
set. The base numbers for each set are as follows: 



Base Number Subroutine Set 

130 Fixed Point Divide - 00 

100 Fixed Length - 01 

70 Variable Length - 02 

40 Automatic Floating Point - 03 



For example, the dim entry number for the first 
user-written subroutine to be added to the variable 
length set would be 70 + 18 = 88. 

A dim entry number is assigned to a subroutine by 
including an "id number" control record when the 
subroutine is assembled (see sps control records). 

SUBROUTINE LENGTH 

The length of a particular subroutine is automatically 
placed in its respective dim entry when an libr con- 
trol record (see sps control records) precedes the 
subroutine source program. 

subroutine identification number 

As stated previously, all subroutines are identified by 
a 5-digit code number. When a subroutine is being 
added, this number must be supplied by the user. 
The number is composed of two digits for "subroutine 
set number" (00, 01, 02, 03), two digits for "subrou- 



tine number" (01-29), and one digit for "number of 
entry points" ( 1-9 ) . The number will automatically be 
loaded to its proper position in the dim table if it is 
used as the address operand of the dend statement 
that terminates the subroutine source program. 

Example DEND 02182 

This code number identifies subroutine number 18, 
a "2-entry point subroutine" that is to be placed in 
the variable-length subroutine set. 

subroutine entry points 

Each subroutine requires at least one entry point but 
may have as many as nine entry points. These must 
be specified at the beginning of the user's source 
program. Two records of data are needed: 

ORIGIN DSA ENTRY1, ENTRY2, etc. 
DORG ORIGIN-4 

In the preceding statements, origin is any label not 
otherwise used in the subroutine; entryI is the label 
of the first entry point; entry2 is the label of the sec- 
ond entry point. The dorg is needed to ensure that 
the subroutine will begin at relocatable 00000. 

summary of assembly procedure 
By inserting a dsa for entry points and placing the 
subroutine identification number in the dend state- 
ment of the source program, it is possible through the 
use of proper control records to assemble a subroutine 
and have it loaded to disk and ready to use all in 
one operation. Of course, the mnemonic of the added 
subroutine must be defined in the Op code table prior 
to assembly of a program that uses it. 

Example 

This example illustrates how a subroutine is added to 
the subroutine library of the Monitor I System. In 
this example, the new subroutine is assembled along 
with a mainline program and both are then executed 
(Figure 10). The example assumes that the Super- 
visor program is already in core storage. 

given: Macro - EXCH A, B 

Function— to exchange floating- 
point numbers between A 
and B 

Identity — Subroutine No. 18, 
Set No. 02 

procedure: 

1. Modify Op Code table by 
loading the following rec- 
ords; 
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SPS Control Records 



Monitor Control Records 



Figure 10. Stacked Input for "Adding SPS Subroutine" Example 
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Figure 11. Source Program for "Adding SPS Subroutine" Example 



Monitor Control — xeq specifying spslib 
spslib Control define op code 

exch- 181 (Col. 12-19) 

ENDLIB 

Note: The above four records must be entered from 
the same input unit. 

2. Precede the source subroutine 
(Figure 11) in the stacked 
input with the following 
control records: 

JOB 
SPS 



Monitor Control 



sps Control — 



ASSEMBLE RELOCATABLE 
LIBR 

ID NUMBER 0088 
STORE RELOADABLE 
LIST CARD 
ERROR STOP 



The macro-instruction mnemonic operation codes 
and their meanings follow: 

Mnemonic Meaning 
GET Read card, paper tape, typewrit- 

er, or disk. 

PUT Punch card, paper tape, or write 

typewriter, or write disk rec- 
ords with or without read- 
back check. 

SEEK Seek disk record. 

CALL Read disk stored subprogram 

and execute (requires link 
operand), or read disk stored 
subprogram or data without 
execution ( requires load oper- 
and), or return control to 
Supervisor ( requires exit 
operand ) . 



I/O Macro-Statements 



The I/O macro-statements are provided to relieve 
the programmer of the task of writing his own I/O 
subroutine in a source program each time he wants to 
read or punch cards or tape, read or write disk stor- 
age, or read or write typewriter. I/O macro-statements 
may be inserted anywhere in the user's program. 
When an I/O macro-statement is encountered in the 
source program during assembly, linkage instructions 
to the I/O routine (part of the Supervisor program) 
are generated in the object program. 



The six types of macro-statements that use the I/O 
routine are written as follows: 



5. 
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A label and remarks may be included with each of 
these statements. The address associated with the 
label will be that of the first instruction in the gen- 
erated linkage. The operands rbc, link, load^ and 
exit are fixed symbols, i.e., they must be written ex- 
actly as given. The symbol def is the address of the 
associated I/O constant generated by an I/O declara- 
tive statement, diment is the dim entry number of a 
program to be called from disk storage; reloc is the 
relocation core storage address of a program to be 
called; and name is the name of a program (as it 
appears in the Equivalence table) to be called, def, 
diment, and reloc may be in actual or symbolic form. 

put statements may be specified with or without 
read-back check (rbc), as shown. Either a dim entry 
number or the program name can be given with call 
link or call load statements. Also, the relocation ad- 
dress is optional with these statements, i.e., the pro- 
grammer does not have to include a relocation 
address. 

A call exit statement should be included in the 
user's source program. This statement, when executed 
at the end of the object program, causes control to 
be returned to the Supervisor program. 

All linkages for I/O routines are generated auto- 
matically through the use of macro-instructions. The 
data and addresses supplied in the macro-instruction 
are incorporated into the linkage instructions where 
they are made available for use by the I/O routine. 
The linkage instructions generated in an object pro- 
gram for macro-instructions by the processor are 
equivalent to the following series of symbolic instruc- 
tions. 



DSC 1, Mi 
DSC 1, 
DC 5, IIII@ 

With a relocation address 



TFM 


IORT, * + 19 


B 


IOCAL 


DORG 


* - 4 


DC 


1, Mo 


DSC 


1, Mi 


DSC 


1, o 


DC 


4, IIII 


DSA 


LLLLL 


DSC 


1, @ 



iocal is an entry to the I/O routine (core storage ad- 
dress 00716). 

Mo Mi is a constant 32 for call linkages. 

mi is the dim entry number of the program, to be 
called. 

lllll is the relocation core storage address where the 
program is to be loaded. 



Linkage for CALL EXIT 

B MONCAL 

DORG * - 4 
moncal is an entry (core storage address 00796) to 
the I/O routine which will call in the Monitor 
Control Record Analyzer routine. 



Linkage for GET, PUT, and SEEK 

TFM IORT, * + 23 
B ENTRY, DEF, 7 

iort is the address of a 5-position storage area in the 
I/O routine. 

entry is one of the four possible entry points in the 
I/O routine (see i/o routine linkages). 

def is the address of the I/O constant. 



Linkages for CALL LINK and CALL LOAD 

Without a relocation address 

TFM IORT, * + 19 

B IOCAL 

DORG * - 4 

DC 1, Mo 



Input/Output Declarative Statements 

Input/output core storage areas to be used by a pro- 
gram for reading or punching cards, reading or punch- 
ing tape, reading or writing disk storage, and reading 
or writing typewriter must be allotted by the program- 
mer. These I/O areas may be allotted and defined 
using dss or das declarative statements. Each I/O 
area used by an I/O macro-statement (get or put) 
must be identified by an I/O declarative statement. 

The I/O declarative mnemonic operation codes and 
their meanings are as follows: 



Code 


Meaning 


DTN 


Define Typewriter Numerical 


DTA 


Define Typewriter Alphameric 


DCN 


Define Card Numerical 


DCA 


Define Card Alphameric 


DPTN 


Define Paper Tape Numerical 


DPTA 


Define Paper Tape Alphameric 


DDW 


Define Disk with WLRC 


DP 


Define Disk without WLRC 
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DTN, DTA, DCN, DCA, DPTN, and DPTA Statements 

These statements may be used in the source program 
to identify numerical or alphameric typewriter, card, 
or paper tape I/O areas. Each statement causes an 
8-digit I/O constant to be generated in the object pro- 
gram. Two operands are required for each statement. 
The first operand is used to specify the address where 
the I/O constant is to be loaded into core storage. 
The operand may be an absolute value or a symbolic 
name. If a symbolic name is used, the symbol must 
have been previously defined as an absolute value; 
that is, it must have appeared in the label field of a 
statement preceding the statement in which it is used. 
If the first operand is omitted, the processor assigns 
the address to which the constant will be loaded in 
core storage. 

The second operand, which may be symbolic or 
actual, is the leftmost core storage address of an as- 
signed I/O area. This address will be included in the 
constant in the object program. Remarks are per- 
mitted following the second operand. Items ( operands 
or remarks) of a statement must be separated by 
commas. Address adjustment may be used with either 
operand. 

If a label is included with the statement, the storage 
address assigned to it will be that of the leftmost 
position of the 8-position I/O constant. 

The following example illustrates a dcn statement. 
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The first statement defines an 80-position numerical 
card I/O area and the second statement identifies it. 
The I/O constant generated in the object program 
for the dcn statement is equivalent to the following 
symbolic instructions, 

DEF DS , * + 1 r 
DSA CARDIO 
DC 3, 04(3) 

where the label def is the leftmost address of this 8- 
position constant and cardio is the address of the 
associated I/O area. The code 04 is generated for a 
dcn statement only. A complete list of the codes gen- 



erated for each type of statement follows: 



DTN 


00 


(Typewriter Numerical) 


DTA 


06 


(Typewriter Alphameric) 


DCN 


04 


(Card Numerical) 


DCA 


10 


(Card Alphameric) 


DPTN 


02 


(Paper Tape Numerical) 


DPTA 


08 


(Paper Tape Alphameric) 



DDW and DD Statements 

These statements are used to specify the disk control 
field (defined by a dda statement) to be used for a 
disk operation (seek, get, or put) and to specify cer- 
tain options. Each statement (ddw or dd) is assembled 
as an 8- or 13-digit I/O constant depending upon the 
number of given operands. 

A minimum of two operands is required with a ddw 
or dd declarative statement. The first operand, which 
may be symbolic or actual, is used to specify the 
address where the generated I/O constant is to be 
loaded into core storage. If this operand is omitted, 
the processor will assign the address. 

The second operand is the address of the leftmost 
position of the disk control field (defined by a dda 
statement). The operand may be in actual or sym- 
bolic form. 

The third operand, which is optional, specifies a 
relocation core storage address of a program or data 
to be read into core storage from disk storage (when 
the object program is executed). It may be in actual 
or symbolic form. If the programmer does not want 
to include a relocation address, and another operand 
or remark is to follow, a comma must be present. 

The fourth operand, also optional, can cause the 
read/write heads to be repositioned to an assigned 
cylinder (specified in the System Communications 
Area) after a disk read or write instruction is execut- 
ed as a result of a get or put input/output macro- 
instruction. The operand letter "R" causes reposition- 
ing. If the operand is a blank or a letter "N," no re- 
positioning takes place. If the programmer does not 
enter a letter N or R, and another operand or remark 
is to follow, a comma must be present. 

The fifth operand, also optional, may be the letter 
A or a blank. If it is the letter A, the sector address 
in the disk control field will be used for the disk oper- 
ation initiated by a seek, get, or put macro-instruc- 
tion. If the operand is blank, an effective sector ad- 
dress, produced by adding the sector address to the 
address of the beginning work cylinder, is used for 
the disk operation. 
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If this operand does not contain the letter A and 
remarks are to follow, the operand must be a comma. 

Address adjustment may be used with any of the 
first three operands. If a label is given with a ddw or 
dd statement, the associated address in the assembled 
object program will be that of the leftmost position 
of the resulting I/O constant. 

The following example illustrates a ddw statement. 



memory address in the dda statement specifies the 
core location where reading or writing of data is to 
begin. Any dda statement used by the I/O routine 
must be followed by a statement that defines a record 
mark (e.g., DC 1, @). Data or programs which oc- 
cupy a read area are replaced by data read from disk 
storage. Provision should be made to save the replac- 
ed data or program, if necessary. 



line 

A.. 3 


label 

t n 


Operation 

12 IS 


Operands & Remarks 
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This declarative statement: 

1. Identifies the address of the disk control field 
by the symbol dctkl. 

2. Indicates by the letter "R" that the read/write 
heads are to be repositioned to a previously 
assigned cylinder after a get or put is executed. 

3. Indicates by the letter "A" that the sector ad- 
dress in the disk control field is to be used for 
the disk operation. 

The I/O constant generated in the object program 
for a ddw or dd statement is equivalent to the follow- 
ing symbolic instructions : 

For statements without a relocation address (third 
operand ) 

DEF DSC 1, M 

DSC 1, M 2 
DSA DCTRL 
DC 1,@ 
For statements with a relocation address 

DSC 1, Mo 

DSC 1, M x 

DSA DCTRL 

DSA RELOC 

DC 1, @ 

where M and Mi are codes generated by the pro- 
cessor for use by the I/O routine when the object 
program is executed, dctrl is the address of the 
disk control field, reloc is the relocation core stor- 
age address. 

All disk I/O options are specified by the codes in 
positions M M x . Only certain options are utilized by 
the dd and ddw statements. A complete list of options 
available to the user by hand coding M and Mi are 
given under i/o constants in the Supervisor Program 
section. 

To define a disk control field for a seek, read, or 
write operation, a dda statement may be used. The 
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The 1620/1710 sps ii-d processor, available in either 
card or paper tape form, is designed to use the ibm 
1311 Disk Storage Drive as an integral unit in the as- 
sembling of user-written source programs. By using 
the large storage capacity of the disk drive, program 
assembly can be accomplished quickly and efficiently. 

A typical assembly procedure might proceed as 
follows: 

1. The source program is loaded together with the 
applicable Monitor Control records and sps ii-d 
Control records (see sps ii-d control records). 

2. The source input is read into core storage, one 
statement at a time. During assembly, the work 
cylinder area of disk storage is used for inter- 
mediate output. 

3. If a program listing (typewriter) or a list deck 
(cards) has been requested, the output will ap- 
pear after all statements have been read. 

4. After assembly, the object program is stored or 
outputted as directed by the sps ii-d control 
statements that were loaded with the source in- 
put. Subroutines used by an object program and 
subprograms are not stored or outputted as part 
of the object program. 



Operating Procedures 

These operating procedures are written assuming that 
the sps ii-d processor and all subroutine sets are al- 
ready on disk storage. 

Assembly Set-Up 

To assemble an sps ii-d source program, proceed as 
follows: Load the source program preceded by the 
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applicable Monitor Control record (sps or spsx) and 
the desired sps ii-d control records. The source pro- 
gram must end with a dend statement. Following 
the dend statement is either the first card of the next 
"job," or data if the program is to be executed imme- 
diately after assembly. 

The loading procedure for sps programs is more 
fully described in the Supervisor section of this 
manual. 

SPS ll-D Control Records 

sps control records must be provided to control the 
assembly of sps programs. These records may be 
in card, paper tape, or typewritten form, and are in- 
serted in the stacked input behind the Monitor Con- 
trol record (sps or spsx) to control the specified sps 
assembly, sps control records are typed out when 
they are encountered in the stacked input. The for- 
mat of an sps control record in terms of cards is as 
follows: 

Columns 1 * 

2-75 Control statement 

Only one control statement may be entered in each 
control card. The 24 control statements must be writ- 
ten exactly as given, except for blanks which are per- 
mitted anywhere in the control statement (two pass 
mode, object core n, etc.). Control statements may be 
followed by remarks. Any statement, other than those 
listed below (e.g., an identification statement) will 
be typed, but will have no effect on the assembly. The 
processor will indicate an identification statement by 
typing (ID) to the right of such a statement. 

Intervening blanks between the letters of a control 
statement do not invalidate the statement. 

TWO PASS MODE. This control statement causes 
the object program to be produced by entering the 
source program twice (two passes). Two passes are 
required when the space allotted for work storage 
is too small to contain the intermediate output from 
the assembly. ( The space required for one-pass opera- 
tion is approximately one sector per source state- 
ment.) If one-pass assembly is attempted with too 
large a source program, an error message is typed 
out. 

OBJECT CORE n. This statement specifies the core 
storage capacity (20,000, 40,000, or 60,000) of the 
object machine (machine on which the object pro- 
gram will be run). If the storage capacity of the as- 
sembly machine (machine on which the object pro- 
gram will be assembled) and the object machine are 
the same, this statement is not needed. The n digit of 



the statement is one of the coded digits 2, 4, or 6 
which represent 20,000, 40,000, and 60,000, respective- 
ly. 

SUBROUTINE SET nn. This statement specifies a 
subroutine set number, 00, 01, 02, or 03. When the 
program being assembled is to be executed, this set 
number will be used to load the proper subroutines 
into core storage. This subroutine set specification can 
be overridden, however, by specifying a different 
number in the xeqs Monitor Control card (see super- 
visor program) when the program is executed. If no 
subroutine set control statement is present at assembly 
time or at execute time, the assembler will use the set 
number that was previously stored in the System Com- 
munication Area ( see section on Supervisor Program ) . 

MANTISSA LENGTH nn. This statement specifies 
the mantissa length (02 to 45) for subroutines sets 02 
or 03. The mantissa length that will ultimately be used 
for execution purposes is determined in the same 
manner as the subroutine set number described above. 

NOISE DIGIT n. This statement specifies the noise 
digit (0-9) to be used by the subroutines. The noise 
digit that will ultimately be used for execution pur- 
poses is determined in the same manner as the sub- 
routine set number described above. 

ERROR STOP. This statement instructs the proces- 
sor to stop whenever a source statement containing an 
error is encountered. When this occurs, an error mes- 
sage will be typed ( see error messages ) . The operator 
can then enter a corrected source statement and con- 
tinue assembly ( see on-line error correction ) . If an 
Error Stop control statement is omitted, the processor 
will not stop for erroneous source statements; how- 
ever, an error message will still be typed. 

ASSEMBLE RELOCATABLE. This statement 
causes the processor to assemble a relocatable object 
program in System Output format. If this statement 
is omitted, the processor will produce an "absolute," 
nonrelocatable program. 

BEGIN CARD INPUT, BEGIN PAPER TAPE IN- 
PUT, BEGIN TYPEWRITER INPUT. These three 
statements cause the loading program to begin read- 
ing input from the newly designated unit. These state- 
ments can be used as "last" control statements when 
the source program is to be entered from a different 
input medium than were the control statements. 

TYPE SYMBOL TABLE. This statement causes the 
symbol table to be typed after all source statements 
have been read ( see typeout of symbol table ) . 
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PUNCH SYMBOL TABLE. This statement causes the 
symbol table to be punched into cards after all source 
statements have been read. These cards may be listed 
80-80 on an ibm 407 to obtain a printed symbol table. 

LIST TYPEWRITER. This statement causes a pro- 
gram listing ( containing both source and object data ) 
to be typed as the program is being assembled. 

LIST CARD. This statement causes the program to 
be punched into cards which may be used to make a 
program listing (ibm 407 80-80). If desired, both the 
List Typewriter and List Card statements may be used 
in one assembly. 

OUTPUT CARD. This statement causes the object 
program to be punched into cards in a reloadable for- 
mat ( see system output format in the Supervisor sec- 
tion ) . This output will occur after any symbol table and 
listing outputs. 

OUTPUT PAPER TAPE. This statement causes the 
object program to be punched into paper tape in a 
reloadable format ( see system output format in the 
Supervisor section ) . Either an Output Card or an Out- 
put Paper Tape statement may be used for an assembly, 
but not both. 

STORE CORE IMAGE. This statement causes an 
assembled program to be permanently stored on the 
disk in a format that is identical to the format of an 
executable program in core storage. Subroutines re- 
quired by the program, however, remain in relocatable 
format until the program is executed. For a method of 
storing subroutines in core image format with the main 
program, while overcoming other limitations inherent 
in this statement, refer to the section entitled, con- 
verting SPS OBJECT PROGRAMS TO CORE IMAGE. The Store 

Core Image statement may not be used in an assembly 
that also contains an Assemble Relocatable statement. 

STORE RELOADABLE. This statement causes the 
assembled program to be stored on the disk in a re- 
loadable format. This format is identical to that de- 
scribed under system output format. If neither Store 
Core Image nor Store Reloadable is specified, the as- 
sembled program will not be permanently stored on 
the disk. However, the program will remain in the 
work cylinders until destroyed by another job. 

SYSTEM SYMBOL TABLE. This statement allows 
the source program to use symbols stored in the Sys- 
tem Symbol table without defining them in the source 
program itself. There is a provision in sps ii-d for de- 
fining user symbols in the System Symbol table (see 

SPS Il-D MODIFICATION PROGRAM ) . 

NO SUBROUTINES. This statement is used, when 
assembling subprograms for a mainline program, to 



prevent subroutines from being called with subpro- 
grams. When the mainline program is assembled, it 
must specify or call all the subroutines used by it, as 
well as those used by its subprograms. 

ID NUMBER dddd. This statement assigns a 4-digit 
dim entry number ( dddd ) to a program being assem- 
bled. Exactly four digits, including leading zeros, must 
be entered. 

NAME aaaaaa. This statement can be used to assign 
a Name in the Equivalence table for an assembled 
program which is to be stored in disk storage, aaaaaa 
is a 6-character alphameric name. At least one of these 
characters must be alphabetic. 

LIBR. This statement must be entered when assem- 
bling a user-written subroutine that is to be added to 
the library subroutines. 

PUNCH RESEQUENCED SOURCE DECK. This 
statement causes the processor to punch a new source 
deck in sequence by page and line number. The page 
and line field will contain a 5-digit number starting 
with 00010 and will increase by ten for each successive 
card, e.g., 00010, 00020, etc. The resequenced deck is 
punched while the old source cards are being read. The 
output appears in the punch stacker ahead of any other 
punched output. When operating in two-pass mode, 
the resequenced source deck should be used for the 
second pass. Corrections to source statements made 
from the typewriter will not appear in a resequenced 
source deck. 

Error Messages 

The error message codes that might be typed out on 
the typewriter during an assembly are listed in Table 
6. Error messages take the following general form: 

PPPPP ALABEL + CCCC ERn 

where ppppp is the page and the line number of the 
statement in error, alabel is the last label used, and 
cccc is the number of statements from that label to the 
statement in error. 

When ER5 (see Table 6) is typed out, the erroneous 
symbol is also typed. 

Table 7 shows what the processor will do about each 
error if no Error Stop control statement has been in- 
cluded in the assembly. 



On-line Error Correction 

One-Pass Mode. If the operator wishes to correct 
source program errors during the assembly process, 
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Table 6. Description of SPS Error Codes 



ERROR 
CODE 



ER1 

ER2 
ER3 
ER4 
ER5 

ER6 

ER7 
ER8 

ER9 
ER10 

ER11 

ER12 
ER13 

ER14 

ER15 

ER16 
ER17 

ER18 

ERI9 

ER20 

ER21 
ER22 



CAUSE OF ERROR 



The capacity of the machine on which the object pro- 
gram is to be executed has been exceeded. The proc- 
essor does not take subroutines into account when 
determining this error. 

Invalid label or record mark is in a label field. 

Invalid OP code or record mark is in an OP code field. 

A label is defined more than once. 

1 . A symbolic address contains more than six 
characters . 

2. An actual address contains more than five digits. 

3. An undefined symbolic address is used in an operand 

4. A HEAD character ($) is improperly specified. 

A DSA statement has more than ten operands. 

A DSB statement has the second operand missing. 

1 . A DC, DSC, or DAC has a specified length greater 
than 50. 

2. A DVLC has a length greater than 50. 

3. A DMES has a length greater than 100. 

4. A DNB has a length greater than 99. 

A DC, DSC, DAC, DVLC, or DMES statement has no 
constant specif ied . 

1 . A DC or DSC statement has a specified length 
which is less than the number of digits in the 
constant itself. 

2. A DAC statement has a specified length which is 
less than or greater than the number of digits in the 
constant itself. 

An invalid character is used as a HEAD character in a 
HEAD statement. 

A HEAD operand contains more than one character. 

A DMES statement contains an invalid starting mode 
character. 

1 . A DMES statement contains a control character 

which is incorrectly specified. 
2. A DMES statement has an invalid format, i.e., 

stray parenthesis, etc . 

A DMES statement contains an alpha character in a 
numerical field. 

A DMES statement contains an invalid mode change. 

1 . A relocatable assembly contains either a relocation 
error (see Rules of Relocatability) or, 

2. A DO RG with an absolute operand. 

A symbolic name used in a CALL LINK or CALL LOAD 
statemert is not in the Equivalence table. 

The storage area allotted for the symbol table has been 
exceeded. 

Intermediate output has exceeded disk storage work 
area (program requires two passes). 

Object output has exceeded disk storage work area. 

Improper "select" operand is in a CALL statement; i.e., 
neither LINK, LOAD, nor EXIT is specified. 



Table 7. Disposition of SPS Errors When no Error Stop 
Statement is used 

NOTE: Assembly and outputting continues in 
all cases except ER 19, 20, and 21. 



ERROR 
CODE 



ERI 
ER2 
ER3 
ER4 

ER5 
ER6 

ER7 
ER8 

ER9 



ER10 

ER1I 
ERI2 

ER13 
ER14 
ERI5 
ER16 

ER17 

ER18 
ER19 



ER20 



ER2I 
ER22 



DISPOSITION 



No disposition . 

The label is ignored. 

A NOP is assembled. 

The second definition of the label is ignored; the first 
definition of the label is used in the assembly. 

The operand is assembled as an absolute 00000. 

The first ten operands are assembled; any remaining 
operands are ignored . 

The number of elements is set to 1 . 

1 . Length is set to 50 . 

2. Length is set to 50. 

3. Length is set to 100. 

4. Length is set to 99. 

A field of zeros is generated, equal to the size of the 
length operand for the DC, DSC, DAC, or DVLC 
constant. In the case of a DMES, an end of message 
( t + ) is assembled and the address counter is increased 
by 100. 

For a DC or DSC, the length of the constant is used as 
the length operand; for a DAC, the specified length is 
used, and the programmer-assigned address, if present, 
is ignored. 

The HEAD character is set to blank. 

The first character of the operand is used as the HEAD 
character. 

The starting mode is assembled as the alphabetic mode. 

An end of message ( 4= + ) is inserted into the constant. 

An end of message ( + + ) is inserted into the constant. 

A is placed in the next available location following 
the mode change. 

1 . The operand is assembled as an absolute 00000. 

2. The DORG is ignored. 

A DIM number of 0000 is assembled. 

Processing continues but no more labels are stored. 
After completion of the intermediate phase, processing 
stops, the following message is typed, and control 
returns to trie Supervisor Program. 

DISK AREA TOO SMALL. ASSEMBLY DELETED 

Processing continues, but no more intermediate data is 
sent to disk storage. After completion of the inter- 
mediate phase, processing stops, the following message 
is typed, and control returns to the Supervisor Program. 

DISK AREA TOO SMALL. ASSEMBLY DELETED 

Processing stops immediately and control is returned to 
the Supervisor Program- 

The statement is ignored. 
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he must use the Error Stop control statement. When 
an error occurs, the appropriate error message is 
typed out along with one of the following instructions 
to the operator: 



RE-ENTER STATEMENT 
RE-ENTER OPERANDS 



or 



At this point, the processor returns the typewriter 
carriage and types the full erroneous source state- 
ment. If only the operands are to be re-entered, the 
processor will then retype the source statement up 
to the operand field. The processor at this point re- 
quires that the operator enter either an entire correct- 
ed source statement or a corrected operand field. The 
operator should use the previously typed original 
statement as a guide to the positions of the Page, 
Line, Label, Op code, and Operand fields. 

Two-Pass Mode. The error correction procedure in 
two-pass mode is identical with that of the one-pass 
mode, with one exception. During the second pass, 
the processor might type an error message containing 
"er xx." This message always refers to a statement 
corrected during the first pass. The operator should 
scan the typewritten record of the corrections made 
during the first pass to find the one identical in page 
and line number, label, and increment. When the 
processor types re-enter stmt and returns the car- 
riage, the operator must re-enter the entire corrected 
statement, exactly duplicating the statement entered 
during the first pass. 
Post Assembly Phase 

After assembly is completed and listings, if desired, 
have been outputted, the following messages are 
typed: 

END OF ASSEMBLY 

XXXXX CORE POSITIONS REQUIRED 

XXXXX STATEMENTS PROCESSED 

In the above typeouts, xxxxx is a 5-digit number. 
In the case of core positions required, any needed 
subroutines are included in the count of core posi- 
tions. 

SYMBOL TABLE OUTPUT 

If either of the statements Type Symbol Table or 
Punch Symbol Table are present in an assembly, the 
symbol table will be typed or punched during as- 
sembly. This output, if punched, will precede the list 
deck in the punch stacker. 



All 6-character labels are listed first in reverse 
alphameric order, i.e., 9 to 0, Z to A. All other labels 
follow in normal alphameric order with their head 
characters. In the case of an assembly in which the 
number of symbols exceeds 235 (some symbols will 
then have to be stored on disk), the listing is broken 
into two or more blocks, each of which is sorted as 
described above. 

The format of the symbol table output is as follows : 

Typewriter. The typed output lists all labels and 
their numerical equivalences, five to a line. The for- 
mat is as shown. 



Label 
LLLLLL 



Equivalence 
AAAAA(-) 



Here llllll refers to a 6-character label or a 5 or 
fewer character label with a head character. 

aaaaa refers to the numerical equivalence of the sym- 
bol. The minus sign, if present, denotes a negative 
quantity. If the program is being "assembled relo- 
catable," the minus sign is replaced by an R to 
denote a relocatable quantity. 

Card. The card output format of the symbol table 
is as follows: 



Columns 1-13 
17-29 
33-45 
49-61 
65-77 



1st label plus equivalence 
2nd label plus equivalence 
3rd label plus equivalence 
4th label plus equivalence 
5th label plus equivalence 



FORMATS OF TYPEWRITER LISTINC AND PUNCHED DECK 

If desired, the operator can obtain a typewriter list- 
ing and/or a punched list deck of an assembled pro- 
gram. The formats of each type of output are de- 
scribed here. 

Typewriter. A typewriter listing consists of a source 
statement together with its associated assembled ma- 
chine language instruction. 

Card. A card list deck usually consists of one card 
for each source statement. The format is as follows: 

Columns 1-5 Page and line number. 
6 Blank. 

7-12 Label as on source card. 
13 Blank. 

14-17 Op mnemonic as on source 
card. 
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18 Blank. 

19-78 Operand fields as on source 

card. If the fields extend be- 
yond column 59, the object 
information ( normally 
found in columns 61-80 of 
first card) is placed on a 
subsequent card or cards. 

61-65 Actual address of assembled 
instruction or constant. 

66 Blank. 

Note: The data in columns 67-80 is peculiar to the 
type of statement assembled. 

Imperative Statements. 

Columns 67-68 Op code in machine lan- 
guage. 
69 Blank. 

70-74 P operand in machine lan- 
guage. 
75 Blank. 

76-80 Q operand in machine lan- 
guage. 

Non-imperative Statements. 

Columns 67-71 Length of assembled data. 
72 Blank. 

73-80 If these columns are punch- 
ed, they will contain actual 
assembled data. 

ERROR MESSAGES AFTER ASSEMBLY 

The following error messages are applicable after 
assembly. 

EXCEEDED SPECIFIED CAPACITY BY XXXXX 

The above message indicates that the object pro- 
gram together with applicable subroutines would ex- 
ceed the available core storage if the program were 
to be executed. The available core storage is deter- 
mind by the user's Object Core control card. 

This error does not invalidate the assembly, how- 
ever, since a different set of subroutines may be speci- 
fied at execution time. A different subroutine set 
might occupy less core storage; therefore, the error 
may no longer apply. 

SUBROUTINES OTHER THAN PGM DIV USED 

The above message is typed when subroutine set 
00 ( programmed divide ) is specified and the mainline 
source program calls a subroutine in another set. This 
error does not invalidate the assembly since the user 
may specify a different subroutine set at execution 
time. 



NO DIM ENTRY FOR SUBROUTINE 

The above message is typed out when the dim entry 
which corresponds to a called subroutine cannot be 
found in the map. This would indicate that the entry 
was either deliberately deleted from the map or other- 
wise destroyed. The assembly will continue, however, 
and the object program will be stored. But if execu- 
tion was planned immediately after assembly (spsx 
card), assembly would be deferred and control would 
return to the Supervisor program. 

MORE THAN 5 CYLINDERS OF 
RELOADABLE OUTPUT SSW4 
ON TO DUMP OUTPUT OFF 
TO CONTINUE, NO OUTPUT 

The above message is typed when the reloadable 
object output would occupy more than 999 sectors on 
disk storage (approximately 5 cylinders). This situ- 
ation is an error because programs greater than 999 
sectors cannot be specified in the Disk Identification 
Map. 

After the message is typed out, the computer halts. 
At this time the user can either turn Program Switch 4 
on and depress start to have the program outputted 
on a pre-chosen output unit, or turn Program Switch 4 
off and depress start to continue, in which case the 
program is not outputted. In either case the program 
is not stored on disk storage. 



Execution of SPS ll-D Object Programs 

When sps ii-d object programs are to be executed, 
they are read into core storage from disk storage, 
paper tape, or cards by the use of Monitor Control 
records. The subroutines which are called for in the 
program are loaded from disk storage at execution 
time. Neither subroutines nor subprograms are ever 
a part of the mainline object program. They are stored 
on disk in relocatable form and brought into core 
storage if needed. The selection of proper subroutines 
at execution time is made by referring to an "indicator 
record" which is stored with the mainline object pro- 
gram. This record, generated at assembly time, con- 
tains a 1-digit location for each of the subroutines in 
a set. At assembly time, as the individual subroutine 
macro-instructions are encountered in the source pro- 
gram, a 1 is placed in the 1-digit location that con es- 
ponds to the subroutine being called. The record is 
then a "map" of the subroutines needed for the par- 
ticular mainline object program. 
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ment. Thus, an address assigned by the program- 
mer, e.g., DC 1, @, 19999, would not be included 
unless it fell within the addresses assigned by the 
processor. 

• No tra-tcd sequences are allowed. 

• A program which requires subroutines and is as- 
sembled with an * assemble relocatable control 
record cannot be converted to core image using the 
methods mentioned above. 

A procedure which will overcome all these limitations 
is outlined below. 

1. End the source program with a sequence of in- 
structions which will dump the program into the 
work cylinders when it is called for execution. 
When the program is called the first time, only the 
special instructions will be executed. An assembly 
of this type is shown in the following example: 

4=4=JOB 

•NAME TEMP 
•STORE RELOADABLE 

•Other control records — listings, symbol table, 
etc. 

START XX etc. 



end of regular source program 

STORE PUT X, RBC 

CALL EXIT 

X DD , XDDA 

XDDA DDA , 1,00000, SSS, CCCCC 

DC 1, @ 

DEND STORE 

In the special sequence of instructions, sss is a 
sector count sufficient to store the entire core 
image program with applicable subroutines. The 



transfer into the work cylinders will start from 
core address ccccc. If subroutines are used, ccccc 
should be 02276 so as to include the subroutine 
transfer vector area. 

2. Assemble the program. 

3. Call the program as if it were to be executed. This 
will cause the special sequence of instructions to 
be executed, thereby dumping the program and 
subroutines into the work cylinders in core image 
format. 

4. Using the disk utility routine, dload or drepl, load 
the program from the work cylinders into per- 
manent disk storage. If dload is used, give the 
program a different name and delete the old name, 
so as not to duplicate names in the dim table. The 
parameters for the dload or drepl operation can 
be obtained either from the listing or from the mes- 
sages typed out after the assembly; e.g., xxxxx core 
positions required gives the highest processor- 
assigned address, including subroutines. An ex- 
ample of how to implement steps 3 and 4 is shown 
below: 

=t=4=JOB 

=^4=XEQS NAME 
+ +JOB 

=(=4=DUP 

•DLOAD or *DREPL 

#==HDUP 



•DELET NAME 



not needed if DREPL is used 



To call and execute a core image program which 
has been converted by this method, use an xeq 
control record. 



SPS II-D Modification Program 

This program allows the user to modify the sps ii-d 
assembler by: (1) Adding or deleting operation codes 
from the System Op code table, and (2) Adding or 
deleting symbols from the System Symbol table. The 
sps ii-d Modification program is loaded into disk stor- 
age as part of the Monitor I system. It is identified in 
the Equivalence table by the name "spslib." 
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Error Messages at Execution Time 

The following error messages are applicable at execu- 
tion time. Their occurrence terminates loading and 
returns control to the Supervisor program. 

CORE CAPACITY EXCEEDED 
BY XXXXX LOCATIONS 
PROGRAM IS TERMINATED 

The above message is typed out when the total core 
storage required for the object program and all ap- 
plicable subroutines exceeds the available core stor- 
age. Note that there is a similar message at assembly 
time if available core storage is exceeded. However, 
it is possible to get the message at execution time 
without having gotten it at assembly time. This could 
happen if a different subroutine set is specified at 
execution time (in xeqs card) than that which was 
assembled with the source program. 

SUBR NOT LOCATED IN SUBROUTINE MAP 

The above message occurs if a subroutine that is 
specified in the "indicator record" of the object pro- 
gram cannot be found in the subroutine section of the 
Disk Identification Map. 

IMPROPER IND CODE IN SUBR XXXX 

The above message occurs when an invalid "reload- 
able indicator code" (see system output format in 
Supervisor section) is found in the object output of 
a subroutine. In this message, xxxx are the first four 
digits of the subroutine identification number; two 
digits are for the set number, and two digits are for 
the subroutine number. 



Rules of Relocatability 

When a program is relocated, as specified by an As- 
semble Relocatable statement, certain addresses with- 
in the program are adjusted relative to the relocation 
(starting) address. Only relocatable quantities are ad- 
justed. Absolute quantities are not adjusted. Examples 
of both relocatable and absolute quantities follow: 

relocatable 

/ * \ 

B * + 24 

absolute 
AM X,7234? 



The processor recognizes relocatable and absolute 
quantities by applying the following rules: 

1. An integer (e.g., 1, 12345, etc.) is an absolute 
value. 

2. A processor-assigned address, which is associated 
with a label ( i.e., the address of an instruction or 
constant with an associated label ) , is a relocatable 
quantity. An asterisk address (*) is also relocatable. 

3. A symbol defined as equal to some quantity has 
the same relocation property as the associated 
quantity. An example follows: 

SYMBOL DS ,QUAN 

4. The product of two absolute quantities is an ab- 
solute quantity. 

5. The sum or difference of two absolute quantities 
is an absolute quantity. 

6. The sum or difference of a relocatable quantity 
and an absolute quantity is a relocatable quantity. 

7. The difference between two relocatable quantities 
is an absolute quantity. 

The processor will recognize any of the following 
situations as "relocation errors." 

1. The sum of two relocatable quantities. 

2. The product of a relocatable quantity and any 
other quantity. 

3. An operand below the relocatable address of 
00000. For example, reloc —10000, where reloc 
is a relocatable quantity of less than 10000. 

Note: The exact negative of a valid relocatable 
quantity is a valid relocatable quantity. 

Although the quantity defined by an operand may 
be either positive or negative, a symbol may be equiv- 
alent to a positive quantity only. If a symbol is de- 
fined equal to a negative quantity, any reference to 
that symbol by the assembler will produce the abso- 
lute value of the quantity. 

Converting SPS Object Programs to Core Image 

Two methods of storing object programs in core image 
have been described in this manual. One is by using the 
disk utility routines dload and drepl (see disk utility 
program), and the other is by using a store core 
image control card when the program is assembled. 
Both of these methods have the following limitations: 

• Subroutines cannot be converted and stored with 
with the main program. 

• The core storage limits of the program image do 
not extend beyond the last processor-assigned state- 



92 



An xeq Monitor Control record with the assigned 
name spslib punched in columns 7-12 is used to call 
the modification program for execution. To specify 
the type of modification desired, the user places modi- 
fication control records following the xeq record. 
These records and any other input data to the Modi- 
fication program must be entered from the same input 
device that was used to enter the xeq record. 

Modification program control records, in terms of 
cards, use the same format as that used for sps control 
records. The five modification control statements must 
be written exactly as given (define op code, delete 

OP CODE, DEFINE SYSTEM SYMBOL TABLE, LIST OP CODE, 

endlib. Only one statement may be included in a 
control record. These statements are typed when they 
are read. A description of the five control statements 
follows. 

DEFINE OP CODE. This statement causes user- 
assigned Op (operation) codes, specified in Op code 
definitions cards, to be added to the sps ii-d System 
Op code table. The Op code definition card(s) must 
follow the control record in the stacked input. The 
format of the Op code definition card follows: 

Columns 12-15 New mnemonic Op code (left 
justified). 

16-75 A 3-digit code which determines 
the instruction generated by the 
Op code. (The code may be 
preceded by a minus sign.) 
The allowable 3-digit codes that may be entered in 
columns 16-75 are shown in Table 8. 

The digits X and Y may be any number 0-9. A sep- 
arate Op code definition card should be entered for 
each Op code that is to be defined. If an attempt is 
made to define an Op code that is already present 
in the Op code table, the message 

ALREADY DEFINED 

will be typed and the new Op code will be ignored. 
If space is unavailable in the Op code table for a 
new Op code, the message 

NO ROOM IN TABLE 

will be typed and the new Op code will be ignored. 

DELETE OP CODE. This statement causes Op 
codes, specified in Op definition cards, to be de- 
leted from the sps ii-d System Op code table. The Op 
code definition card(s), which must follow the control 
record in the stacked input, specifies in columns 12-15 
the code to be deleted; columns 16-75 may be blank. 
Only one Op code may be specified per card. If an 
attempt is made to delete an Op code that is not in 



the Op code table, the message 

NOT IN TABLE 

will be typed and no change will be made to the 
table. 

DEFINE SYSTEM SYMBOL TABLE. This state- 
ment is used to modify the System Symbol table. The 
System Symbol table consists of certain symbols that 
were defined when the Monitor System was assembled 
plus any symbols the user adds by means of the Define 
System Symbol Table statement. Any symbol that is in 
the System Symbol table may be used in any assembly 
without defining the symbol within the program being 
assembled. When used, the Define System Symbol 
statement first causes all user-defined symbols to be 
deleted from the table. Then all symbols which fol- 
low the Define System Symbol statement are added 
to the System Symbol table. Symbols to be added 
are defined in the Symbol Definition record. The for- 
mat of this record in terms of cards is as follows: 

Columns 6-11 Symbol to be defined (left justi- 
fied). 

16-75 An operand, symbolic or actual, 
but not asterisk. (If a symbolic 
operand is used, it must have 
been previously defined in the 
System Symbol table.) 
If a symbolic operand, contained in the operand field 
(columns 16-75) of a Symbol Definition card, cannot 
be matched with a previously defined symbol in the 
System Symbol table, the message 

UNDEFINED SYMBOL XXXXX 

is typed out, where xxxxx is the undefined symbolic 
operand; no change is made to the System Symbol 
table. Up to 150 user-defined symbols may be added 
to the System Symbol table. Any attempt to insert 
more symbols causes an error message to be typed 
and control to be returned to the Supervisor program, 
thus terminating the add-to-symbol-table function. 
Symbols that have less than six characters will be de- 
fined with a blank "heading character" in the System 
Symbol table. Symbols defined as positive quantities 
will be treated as positive-absolute quantities in both 
absolute and relocatable assemblies. Negative quanti- 
ties will be treated as negative-absolute quantities in 
an absolute assembly and positive-relocatable quanti- 
ties in a relocatable assembly. 

LIST OP CODE. This statement causes the proces- 
sor to type a listing of the Op code table. All Op codes 
are listed in tabular form with their associated 3-digit 
codes. 
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END LIB. This statement causes control to be re- 
turned to the Supervisor program. In the stacked in- 
put, it must follow other control statements which 
utilize the modification program. 

IBM Defined System Symbols 

The following symbols will be available to the user 
in the System Svmbol table. 



Symbol Equivalence 



9RCYL0 
9RCYL1 
9RCYL2 
9RCYL3 



9CCYL0 
9CCYL1 
9CCYL2 
9CCYL3 



00513 
00515 
00517 
00519 



02111 
02113 
02115 
02117 



Description 

These are the low-order posi- 
tions of four 2-digit fields 
which contain _the numbers of 
cylinders (00-99), where the 
disk access arm is repositioned 
after a disk operation in which 
a reposition has been request- 
ed. The four fields refer to 
drives 0, 1, 2, and 3, respec- 
tively. 

These are the low-order posi^ 
tions of four 2-digit fields, sim- 
ilar to the previous four. How- 
ever, these positions contain 
the cylinder numbers of the 
current access arm positions 
(the position of the arm after 
the last disk IORT operation). 



Table 8. Codes and Assembled Data for SPS Modification 
Program 



CODE 


ASSEMBLED DATA 


USE 


XYO 


XY PPPPP QQQQQ 


Any instruction 


-XY1 


Macro-instruction subroutine 
linkage to subroutine XY 


Subroutine Macros 


-XY2* 


8X PPPPP YQQQQ 


SIOC instructions 


-XY4 


4X PPPPP Q00QY 


Mask and Unmask instruc- 
tions 


XY2 


3X PPPPP Q07QY 


Disk instructions 


XY3 


3X PPPPP Q0YQQ 


I/O instructions 


XY4 


34 PPPPP Q0XQY 


Control instructions 


XY6 


46 PPPPP QXYQQ 


Branch Indicator instruc- 
tions 


XY7 


47 PPPPP QXYQQ 


Branch No Indicator 
instructions 



*lf the first character of the Op code contained in columns 12-15 
is the letter "R," position Oj of the assembled instruction will be 
flagged. 
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FORTRAN ll-D 



The Fortran ii-d programming system consists of 
the Fortran ii-d language and the processor. The 
Fortran ii-d language is comprised of a number of 
types of statements that the programmer may use in 
defining the problem to be solved. The Fortran ii-d 
processor is a program that accepts the source pro- 
gram statements as input and produces, as output, a 
machine language program, known as the object pro- 
gram. The Fortran ii-d processor can operate only 
under control of the Monitor System and the object 
programs it produces can be reloaded only by the 
Monitor Input/Output routine. It is possible for the 
user to remove the Fortran portion of Monitor I and 
still utilize the remainder of the system. It is also pos- 
sible to remove some of the Fortran library subrou- 
tines that are supplied and still utilize the remainder 
of the Fortran system (see disk storage location 

OF THE FORTRAN COMPILER). 



FORTRAN II-D Language 

The Fortran ii-d source program consists of a num- 
ber of statements. Each statement deals with one 
aspect of the problem; that is, it may cause data to 
be fed into the computer, calculations to be perform- 
ed, decisions to be made, results to be printed, etc. 

Some statements do not cause specific computer 
action, but rather provide information to the process- 
or program. 

Fortran n-D statements are arranged in five groups: 
Arithmetic statements which specify the mathematical 
calculations to be performed. 

Control statements which govern the sequence in 
which the statements will be followed. 
Subprogram statements that enable the programmer 
to define and use subprograms. 

Input/Output statements that read data into the pro- 
gram or print or punch the results of the program. 
Specification statements that provide information 
about the data that the object program is to process. 

The above statement types are explained in detail 
later in this manual. 

Fortran n-D statements are written on a standard 
Fortran Coding Form which is designed to organize 
the statements into the special format required by the 
processor program. All statements and comments of 
the source program are written on this form. 



The function of each portion of the coding form 
shown in Figure 12 is explained below. 

Space is provided at the top of each page for the 
name of the program, date, etc. This information does 
not constitute part of the source program and is not 
punched into cards. 

The series of numbers ( 1, 5, 6, 7, 10, . . . , 72 ) 
across the top of the form indicates the card column 
that the information is punched into. 

Comments to explain the program are written in 
columns 2-72 of a line with a C in column 1. A com- 
ment line is not processed by the Fortran n-D pro- 
gram but is listed when the source program cards 
are listed. 

Columns 2 through 5 are used for the statement 
number. Any number from 1 through 9999 may be 
used as a statement number. Statement numbers are 
used for cross reference within a program (see ex- 
planations of do and go to statements) or may be 
used merely as a means of identifying statements. 
Statements should be numbered only when they are 
referenced by another statement and no two state- 
ments can have the same number. Also, there is no 
requirement that every statement must have a num- 
ber, nor that statements must be numbered in 
sequence. 

Column 6 of the initial line of a statement must be 
blank or zero. If a statement is too long to be written 
on one line it can be continued on as many as four 
"continuation lines." Continuation lines are written by 
placing in column 6 any character or any number 
from 1 through 9 (zero allowed only for initial line). 
The normal method is to number the initial line zero, 
the second line one (first continuation line), the third 
line two, etc. A statement other than a comment state- 
ment may not consist of more than 330 characters 
(i.e., 5 lines). 

The body of the statements themselves are written 
in columns 7 through 72. Blank columns for the most 
part are ignored by the processor and may be used 
freely to improve the readability of the source pro- 
gram listing. 

Columns 73 through 80 are not processed and 
therefore may contain any identifying information. 

The information on each written line in the state- 
ment section of a coding form is punched into a card. 
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A standard Fortran card is shown in Figure 13. 

After the cards are punched, they should be veri- 
fied to lessen the chances of clerical errors causing 
source and object program errors. 



range from minute fractions to large numbers may be 
handled by the computer. Floating-point numbers 
are expressed as decimal fractions times a power of 
ten. For example: 



Arithmetic Mode 

Quantities used in the Fortran statements may be ex- 
pressed in either fixed-point or floating-point form. 
Numbers expressed as integers (whole numbers) a:e 
considered fixed-point. Thus, the integers 3, 57, and 
1008 are fixed-point numbers. 

Floating-point arithmetic is a technique used to 
eliminate the complex programming required for cor- 
rect placement of the decimal point in arithmetic 
operations. Floating-point numbers are represented 
in a standard format which specifies the location of 
the decimal point. With this method, quantities which 



3.14159 is expressed as .314159 x 10 1 
4800.0 is expressed as .48 x 10 4 
0.0187 is expressed as .187 x 10 1 

The numerical part of the floating-point number is 
called the mantissa and the power of ten is called the 
exponent. For a floating-point number, the decimal is 
always moved to the left of the high-order nonzero 
digit. This is called normalizing the number. 

In Fortran ii-d, fixed-point or floating-point num- 
bers can be used, subject to the rules described under 

ARITHMETIC STATEMENTS. 



IBM 



Program 

Coded By _ 
Checked By 



FORTRAN CODING FORM 



Identification 

. i I , , , , I 



form X28-7327-3 
Printed in U.S.A. 



Date. 
Page. 



.of. 



i STATEMENT 
NUMBER 

1 5 
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FORTRAN STATEMENT 

7 10 IS 20 25 30 35 40 45 50 55 60 65 70 72 

































































































































Figure 12. FORTRAN Coding Form 
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IDENTIFICATION 




FORTRAN STATEMENT 




STATEMENT 
NUMBER 


0<0 

1 1 2 3 4 5 
I'l 11 1 

1 

2)2 2 2 2 
3I3 3 3 3 
44 444 

515 5 5 5 

6 ! 6 6 6 6 

1 

7|7 7 7 7 

8*8 8 8 8 

I- 

9I9 99 9 

1)2345 




6 

1 

2 
3 
4 
5 
6 
7 
8 
9 

6 


0000000000 0000000000 000000000U 000 00 00 00000 00 000 00 0000000000 00000 

7 1 1 10 11 i: 13 14 15 16 17 It 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 3D IS 37 36 39 40 41 42 43 44 45 46 47 48 <9 50 51 52 S3 54 55 5« 57 56 M CO 61 62 63 M 65 66 67 88 89 70 71 72 
111111111111111111111111111111111111111111111111111111111111111111 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3 3 3 33333333333333333333333333333333333333333333333333333333333333 
44444444444444444444444444444444444444444444444444444444 44 44444444 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
66666 666 66666 666 6 6666666666666666866 68 66666 66 66666 6 6666 6666 6 666666 
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 
88888888888888868888888888888888888888888888888888888888888888 8888 
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Figure 13. FORTRAN Source Program Card 



Constants, Variables, Subscripts, and Expressions 

Mathematical problems usually contain some data 
that does not change throughout the entire problem, 
and other data that may change many times during 
calculation. These two kinds of data are referred to 
as constants and variables, respectively. Both con- 
stants and variables can be used in Fortran ii-d, but 
they must be written so the processor can distinguish 
one from the other. 

Constants 

A constant is any number which is used in computa- 
tion without change from one execution of the pro- 
gram to the next. A constant appears in numerical 
form in the source statement. For example, in the 
statement 

J-3 + K 

3 is a constant, since it appears in actual numerical 
form. Two types of constants may be written in 
Fortran ii-d: fixed-point (restricted to integers), and 
floating-point (characterized by being written with a 
decimal point ) . 

FIXED-POINT CONSTANT 

A fixed-point constant is an integer consisting of 1 to 
10 numerical characters (see arithmetic precision). 
A preceding plus sign is optional for positive num- 
bers. An unsigned constant is assumed to be positive. 

examples 

3 

+1 

-28987 



FLOATING-POINT CONSTANT 

A floating-point constant may be in either of two 
forms: 

1. Any number consisting of 1 to 28 decimal digits 
with a decimal point at the beginning, at the 
end, or between two digits (see arithmetic 
precision). A preceding plus sign is optional for 
positive numbers. Zeros to the left of the decimal 
point are permissible. 

examples 

17. 
5.0 

-.0003 
0.0 

2. An integral decimal exponent preceded by an E 
may follow a floating-point constant. The magni- 
tude thus expressed must be between the limits 
of 10 100 and 10" or must be zero (see arith- 
metic precision ) . 

examples 

5.0E3 = (5.0 x 10 3 ) 
5.0E + 3 =(5.0 x 10 3 ) 
3.14E = (3.14 x 10°) 

Variables 

A Fortran variable is a symbolic name which will as- 
sume a value during execution of a program. This 
value may change either for different executions of 
the program or at different times within the program. 
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For example, in the statement 

A = 3.0 + B 

both A and B are variables. The value of B will be 
assigned by a preceding statement and may change 
from time to time, and A will change whenever this 
computation is performed with a new value of B. 

As with constants, a variable may be in fixed-point 
or floating-point form. 

FIXED-POINT VARIABLES 

A fixed-point variable is named by using 1 to 6 alpha- 
betic or numerical characters (not special characters) 
of which the first must be I, J, K, L, M, or N. 

EXAMPLES 

I 

M2 

JOBNOl 

A fixed-point variable can assume any integral value 
provided the magnitude is less than the maximum 
size as defined through the use of a control record as 
stated under arithmetic precision. (If not defined, 
the maximum size will be 4 decimal positions for 
fixed-point numbers.) 

FLOATING-POINT VARIABLES 

A floating-point variable is named by using 1 to 6 
alphabetic or numerical characters (not special char- 
acters), of which the first is alphabetic but not I, J, 
K, L, M, orN. 

EXAMPLES 

A 
B7 

DELTA 

A floating-point variable may assume any value ex- 
pressible as a normalized floating-point number, i.e., 
zero or any number between 10" 100 and 10". The 
number of mantissa characters may be from 2 to 28 
(see arithmetic precision). If not defined, the maxi- 
mum size will be 8 characters for the mantissa. 



Arithmetic Precision 

The precision of the quantities used in the calculation 
is an important consideration in most types of scien- 
tific computation. For example, the computation of 
7.19 x 3.14 would not be as precise as 7.19286 x 
3.14159. 

In the Fortran ii-d system, the variable-field length 
capacity of the 1620 is used to allow varying the de- 
gree of precision from one program to another. The 



user has the ability to define the precision to which 
fixed-point and floating-point values should be car- 
ried. Floating-point precision, denoted in this publica- 
tion as /, may be varied from 2 to 28 places; fixed- 
point precision, denoted by k, may be varied from 4 
to 10 places. 

The precision of the values may be changed by the 
use of a control record which must precede the source 
program (see Fortran ii-d control records, fandk) 
or the values may be changed by use of the Disk 
Utility Program define control record. // not redefin- 
ed (by either of these methods), the value of f is 8 
and k is 4. 

Values for / and k must be the same for subpro- 
grams and link programs called by the main program. 

Subscripts 

An array is a group of quantities. It is often advan- 
tageous to be able to refer to this group by one name 
and to refer to each individual quantity in this group 
in terms of its place within the group. For example, 
assume the following is an array named next: 

15 

12 

18 

42 

19 

If it were desired to refer to the second quantity in 
the group, the ordinary mathematical notation would 
be next 2 . In Fortran this becomes 

NEXT (2) 

The quantity in parentheses is called a subscript. Thus 

NEXT (2) has the value of 12 
NEXT (4) has the value of 42 

The ordinary mathematical notation might be NEXTi, 
to represent any element of the array next. In For- 
tran, this is written 

NEXT (I) 

where I equals 1, 2, 3, 4, or 5. A program may also 
use two or three-dimensional arrays. For example, the 
following is a two-dimensional array named mrate. 



Row 1 
Row 2 
Row 3 
Row 4 



Column 1 
14 
48 
29 
1 



Column 2 
12 
88 
25 
3 



Column 3 

8 

4 
17 
43 



To refer to the quantity in Row 4, Column 2, the 
Fortran statement would be written as mrate (4,2). 
The value of mrate (4, 2) is 3. 
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The value of mrate (3, 3) is 17. 
Thus, subscripts are positive fixed-point quantities 
whose values determine the member of the array to 
which reference is made. 

GENERAL FORM 

Let v represent any fixed-point variable and c (or c') 
any fixed-point constant. Then, a subscript is an ex- 
pression in one of the following forms. 

v, c, v-f-c, v— c, c*v, 
c*v+c' or c*y— c' 

(The symbol * denotes multiplication.) 

EXAMPLES 

I 

3 

MU + 2 
5* J 
5* J-2 

The variable in a subscript must not itself be sub- 
scripted. 

Subscripted Variables 

A fixed or floating-point variable may be subscripted 
by enclosing up to three fixed-point subscripts in par- 
entheses to the right of the variable. 

EXAMPLES 

A(I) 

K(3) 

BETA (5*7-2, K+2,L) 

The commas separating the subscripts are required 
punctuation. Note that subscript arithmetic may take 
place as shown in the third example above. For in- 
stance, if J is equal to 20, the first subscript will be 
98. (The symbol * denotes multiplication.) 

The value of a subscript (including the added or 
subtracted constant, if any) must be greater than 
zero and not greater than the corresponding array 
dimension. Each subscripted variable must have the 
size of its array (i.e., the maximum values which its 
subscripts can attain) specified in a dimension state- 
ment preceding the first appearance of the variable 
in the source program. 

Expressions 

An expression in Fortran language is any sequence 
of constants, variables (subscripted or not subscript- 
ed), and functions (explained later), separated by 



operation symbols, commas, and parentheses, which 
comply with the rules for constructing expressions. 
Expressions appear on the right-hand side of arith- 
metic statements. 

In arithmetic-type operations, the following opera- 
tion symbols are used: 

+ addition 

— subtraction 

* multiplication 

/ division 

** exponentiation (i.e., raising to 
a power) 

RULES FOR CONSTRUCTING EXPRESSIONS 

Since constants, variables, and subscripted variables 
may be fixed-point or floating-point quantities, ex- 
pressions may contain either fixed-point or floating- 
point quantities; however, the two types may appear 
in the same expression only in certain ways. (In the 
following description, no mention is made of the rules 
for using fixed-point and floating-point quantities in 
functions. These rules will be stated when functions 
are discussed and will be considered as addenda to 
the following rules. ) 

1. The simplest expression consists of a single con- 
stant, variable, or subscripted variable. If the 
quantity is an integer quantity, the expression 
is said to be in the fixed-point mode. If the 
quantity is a floating-point quantity, the expres- 
sion is said to be in the floating-point mode. 

EXAMPLES 



Expression Type of Quantity Mode of Expression 



3 


Fixed-Point 
constant 


Fixed Point 


3.0 


Floating-Point 
constant 


Floating Point 


I 


Fixed-Point 
variable 


Fixed Point 


A 


Floating-Point 
variable 


Floating Point 


I(J) 


Fixed-Point 
subscripted 
variable 


Fixed Point 


A(J) 


Floating-Point 
subscripted 
variable 


Floating Point 



In the last example, note that the subscript, which 
must be a fixed-point quantity, does not affect 
the mode of the expression. The mode of the 
expression is determined solely by the mode of 
the quantity itself. 
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2. Exponentiation of a quantity does not affect the 
mode of the quantity; however, a fixed-point 
quantity may not be given a floating-point ex- 
ponent. The following are valid: 

I**J Fixed Point 
A**I Floating Point 
A**B Floatingpoint 
The following is not valid: 

I** A ( Violates the rule that a 

fixed-point quantity must not 
have a floating-point exponent) 

Note: The expression A**B**C is not permitted. It 
must be written A**(B**C) or (A**B)**C, 
whichever is intended. 

3. Quantities may be preceded by a -J- or a — or 
connected by any of the operators (+, — , *, /, 
**) to form expressions, provided: 

a. No two operators appear consecutively. 

b. Quantities so connected are all of the same 
mode. (Exception: floating-point quantities 
may have fixed-point exponents.) 

The following are valid: 

-A+B 
B+C-D 

I/J 
K*L 

The following are not valid expressions: 

AH — B ( must be written as A-f- ( — B ) 
A-j-I (variables are of different modes ) 
3J (must be written as 3 * J if multipli- 

cation is intended) 

4. The use of parentheses in forming expressions 
does not affect the mode of the expression. Thus, 
A, ( A ) , and ( ( ( A ) ) ) are all floating-point 
expressions. 

5. Parentheses may be used to specify the order of 
operations in an expression. Where parentheses 
are omitted, the order is taken to be from left 
to right as follows: 

Order Symbol Operation 

1 ** Exponentiation 

2 * and / Multiplication and Division 

3 + and — Addition and Subtraction 

For example, the expression 

A+B°C/D+E*°F-G 



will be taken to mean 
B*C 



A+ 



D 



+ E F 



Using parentheses, the expression could be written 

(A+B)*C/D + E**F-G 
which would be taken to mean 
(A + B)*C 



D 



+ E P -G 



A valid expression will be evaluated when the object 
program is executed. An invalid expression may re- 
sult in an error message from the Fortran ii-d pro- 
cessor or may result in inaccurate object program 
results. 



Arithmetic Statements 



GENERAL FORM 



B 



where A is a variable (subscripted or not subscript 
ed ) and B represents an expression. 



EXAMPLES 

Q = K+l 
A(I) = 2(1) + SINF (C(I)) 

The numerical calculations to be performed in the 
object program are defined by arithmetic statements. 
Fortran arithmetic statements closely resemble con- 
ventional arithmetic formulas. They contain a variable 
to be computed, followed by an equal ( = ) sign, fol- 
lowed by an arithmetic expression. In Fortran lan- 
guage, the equals sign means "is to be replaced by" 
rather than "is equivalent to." For example, the arith- 
metic statement 

Y - N - LIMIT (J-2) 

means that the value in the storage area assigned to 
Y is to be replaced by the value of N— LIMIT (J-2). 
The equal sign description can be emphasized more 
with the example of 

1 = 1+1 

which means that the variable I is to be replaced with 
its old value plus one. 
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The result of the expression is stored in fixed-point 
form if the variable on the left of the equals sign is a 
fixed-point variable, or in floating-point form if it is 
a floating-point variable. 

If the variable on the left is in fixed-point form and 
the expression on the right is in floating-point form, 
the result is first computed in floating-point, then 
truncated (the fractional value is dropped) and con- 
verted to a fixed-point number. Thus, if the result of 
an expression is 3.872, the fixed-point number stored 
is 3, not 4. Likewise, the statement 

J = A/B 

where the value of A is 7, 
and the value of B is 4, 
produces a result of 1. 

If the variable on the left is in floating-point form 
and the expression on the right is in fixed-point form, 
the expression will be computed in fixed-point and 
then converted to floating-point before it is stored as 
the new value of the variable. 

Example Meaning 

A = B Store the value of B in A. 

I = B Truncate B to an integer, convert to 

fixed point, and store in I. 
A = I Convert I to floating-point, and store 

in A. 

A = 3.0*B Replace A with 3 times B. 

A = I*B Not permitted. The expression is mix- 
ed, i.e., contains both fixed-point 
and floating-point variables. 

A = 3 * B Not permitted. The expression is 
mixed. 



GENERAL FORM 

GO TOn 
where n is a statement number. 

EXAMPLES 

GO TO 1009 
GO TO 3 

A coding sample is shown below: 



NUMBER 


6 


FORTRAN STATEMENT 

/ IC IS 20 25 30 li O 45 


















S=.7. , . ... ..... , 






GO. 7,0. 6. . 


. , ./,« 




C"3.M . ............. 


.6 




C*.3.'A8. , .... 






i .... i .... i .... i .... i .... i . i 






«... i .... i .... i .... i .... i .... i .... i . . 



The go to statement transfers the program to state- 
ment 6 where the result 21 is obtained. 



Computed GO TO 

This statement also indicates the statement that is to 
be executed next. However, the statement number 
that the program is transferred to can be altered dur- 
ing the program. 



Con fro/ Statements 

The second class of Fortran ii statements is com- 
prised of control statements that enable the program- 
mer to state the flow of the program. Normally, state- 
ments may be thought of as being executed sequen- 
tially. That is, after one statement has been executed, 
the statement immediately following is executed. How- 
ever, it is often undesirable to proceed in this man- 
ner. The following descriptions discuss statements 
which may be used to alter the sequence of a program. 

GO TO Statement (Unconditional) 

This statement interrupts the sequential execution of 
statements, and specifies the number of the next state- 
ment to be performed. 



general form 

GO TO (n x , n 2 , . . , n m ), i 



where ni, n > . . , n m are statement numbers and i is 
a non-subscripted fixed-point variable. 

The parentheses enclosing the statement numbers, 
the commas separating the statement numbers, and 
the comma following the right parenthesis are all re- 
quired punctuation. 

This command causes transfer of control to the 1st, 
2nd, 3rd, etc., statement in the list depending on 
whether the value of i is 1, 2, 3, etc. 

The variable i must never have a value greater than 
the number of items in the list. 
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EXAMPLES 



GENERAL FORM 



GO TO (3, 4,5),L 



GO TO (4, 4, 5, 2), J 



Meaning 
If L is 1, transfer to 

statement 3. 
If L is 2, transfer to 

statement 4. 
If L is 3, transfer to 

statement 5. 
If J is 1 or 2, transfer 

to statement 4. 
If J is 3, transfer to 

statement 5. 
If J is 4, transfer to 

statement 2. 



Further examples of the Computed go to and the 
Unconditional go to statements are illustrated below: 



— C fOt COM 



1 s 




FORTRAN STATEMENT 

> 10 IS 20 J5 30 35 <0 <S 












. . 






B°A . , 






C.«.5,.i ........ ... . , . \ 






K*0., ................ . , . . ......... 


. . J 




K'K+,1 ....... , ..... . , . . . , 






GO T,0 O0„20,3,0) , K , . .......... 














. 30 




F*A-,B ................ , . ............. 






GO 7,0 iZ i ......... , ........ . , . ... 


20 




E*A-,C 






GO TO 1 , ..... . . 


10 




D*B-,C .... 






GO TO 1. , , , . , , .... 














12 













In the example, D, E, F are computed in that order, 
and the program is transferred to statement 12. This 
.is a simplified example and if these were the only 
computations in the program, the programmer would 
simply list the arithmetic statements to compute D, E, 
and F in any desired order without using the Com- 
puted go to statement. 

IF Statement 

This statement permits the programmer to change the 
sequence of the statement execution, depending upon 
the value of the arithmetic expression. 



IF (a)ni, n 2 , n 3 

where a is an expression and ni, n 2 , n 3 are statement 
numbers. 

The expression must be enclosed in parentheses and 
the statement numbers must be separated by commas. 
The expression may be in either fixed or floating 
mode. 

Control is transferred to statement number rii, n 2 , n 3 
depending on whether the value of a is less than, 
equal to, or greater than zero, respectively. 



EXAMPLE 



IF (A - B) 10, 5, 7 



which means "If the value of A minus B is less than 
zero, transfer to statement 10. If the value of A minus 
B is equal to zero, transfer to statement 5. If ... A 
minus B is greater than zero, transfer to statement 7." 

Suppose a value, X, is being computed. Whenever 
this value is negative or positive, it is desired to pro- 
ceed with the program. Whenever the value is zero, 
an error routine is to be followed. This may be coded 
as: 



C to* COMMENT 



1 STATE M( NT 
NUM|£I 


6 


FORTRAN STATEMENT 

' "5 '5 JO IS 30 3 S 40 ti 






. 1 .... .1 .... 1 ......... 1 ... 1 . - . 1 






X*(B,*ClF*,*.E.)-z,/£ . . ..... 






If (X) 10, A0>10, . 


10 




1 .............. . 






, .... 1 .... 1 .... , 






•. . . 1 . , . , 1 1 ... , 


40 




(error ROUTINE) 

*■ ■ ■ i .... i ......... . 



IF (SENSE SWITCH) Statement 

This statement permits the program to transfer to a 
particular statement depending on the setting of any 
one of the four Console Program Switches. 

GENERAL FORM 

IF (SENSE SWITCH i) n^ n 2 

where i is the number of one of the Console Program 
Switches, and ni, n 2 are statement numbers. 

The parentheses enclosing the words sense switch, 
and the commas separating the statement numbers 
are required punctuation. 

The program transfers to the statement number n x 
when the designated Program switch is on, or to the 
statement numbered n 2 when it is off. 
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EXAMPLE 



IF (SENSE SWITCH 3) 14, 10 

which means, "If Sense Switch 3 is on, transfer to 
statement 14, otherwise transfer to statement 10." 



DO Statement 

GENERAL FORM 

DO ni = m 1; m 2 
or 

DO n i = mi, m 2 , m 3 

where n is a statement number, i is a non-subscripted 
fixed-point variable, and mi, m 2 , and m 3 are either an 
unsigned fixed-point constant or a non-subscripted 
fixed-point variable. // m 3 is not stated, it is under- 
stood tobel. 

EXAMPLES 

DO 30 J = 1, 10 
DO 30 J = 1, K, 3 

The do statement is a command to repeatedly exec- 
cuate the statements that follow, up to and including 
the statement with statement number n . , i.e., it forms 
a program loop. 

The statements are executed with i = m x the first 
time. For each succeeding execution, i is increased 
by m 3 . After the statements have been executed with 
i equal to m 2 (or as near as possible without exceed- 
ing m 2 ), control passes to the statement following the 
last statement in the range of the do. 



DO Range 

The range of a do is that set of statements which are 
executed repeatedly; i.e., it is the sequence of con- 
secutive statements immediately following the do, up 
to and including the statement numbered n. 



DO Index 

The index of a do statement is the fixed-point variable 
i, which is controlled by the do in such a way that its 
value begins at m u and is increased each time by m 3 , 
up to, but not including the value which exceeds m 2 . 
Throughout the range, the i-value is available for 
computation, either as an ordinary fixed-point variable 
or as the variable of a subscript. After the last execu- 
tion of the range, the do is said to be "satisfied." 



Suppose for example, that control has reached 
statement 10 of the program: 



10 DO 11 I = 1, 10 

11 A (I) = 1° N (I) 
12... 



The range of the do is statement 11, and the index 
is I. The do sets I to 1 and control passes into the 
range. The value of 1 * N(l) is computed, converted 
to floating-point and stored in location A(l). Since 
statement 11 is the last statement in the range of the 
do and the do is unsatisfied, I is increased to 2 and 
control returns to the beginning of the range, state- 
ment 11. The value of 2 * N(2) is then computed and 
stored in location A(2). The process continues until 
statement 11 has been executed with I = 10. Since 
the do is satisfied (m x = m 2 ), control then passes to 
statement 12. 

DO's Within DO's 

There may be other do statements among the state- 
ments in the range of a do. When this is so, the fol- 
lowing rule must be observed. 

If the range of a DO includes one or more other 
DO's, then all of the statements in the range of the 
latter must also be in the range of the former. 

A set of do's satisfying this rule is called a "nest of 
do's." This rule is illustrated in the drawing below. 
(Brackets are used to illustrate the range of a do). 



Permitted 



Not Permitted 



DO 



DO 



DO 



DO 



DO 



DO 



DO 




DO 
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Transfer of Control and DO's 

Transfers of control from and into the range of a do 
are subject to the following rule: 

No transfer is permitted into the range of any DO 
from outside its range. Thus, 1, 2, and 3 are allowable 
transfers in the drawing below, but 4, 5, and 6 are not. 



DO 



p 1 ) ' 

► 2 

5 



Preservation of Index Values. When control leaves 
the range of a do in the ordinary way (i.e., when 
the do becomes satisfied and control passes on to 
the next statement after the range) the exit is said 
to be a normal exit. After a normal exit from a do 
occurs, the value of the index controlled by that do 
is not defined, and the index cannot be used again 
until it is redefined. However, if the exit occurs by 
virtue of a transfer out of the range, the current 
value of the index remains available for any sub- 
sequent use. If the exit occurs because of a transfer 
which is in the ranges of several do's, the current 
values of all the indexes controlled by those do's 
are preserved for any subsequent use. 

Exits. When a call statement (see call statement) 
is executed in the range of a do, care must be taken 
that the called subprogram does not alter the do 
index or indexing parameters. This applies as well 
when a Fortran function is called for in the range 
of a do. 

Restrictions on Statements in the Range of a DO. 
A statement which redefines the value of the index 
or of any of the indexing parameters (m's) is the 
only type of statement not permitted in the range 
of a do. In other words, the indexing of a do loop 
must be completely set before the range is entered. 
The first statement in the range of a do must not be 



a non-executable statement, such as end, continue, 
and format statements. Also a do loop cannot end 
with a transfer statement. 



CONTINUE Statement 

continue is a dummy statement which results in no 
instructions in the object program. It is most fre- 
quently used as the last statement in the range of a 
do to provide a transfer address for if and go to 
statements that are intended to begin another repeti- 
tion of the do loop. 

example 

CONTINUE 

As an example of a program which requires a 
continue, consider the table search: 



10 DO 12 I = 1, 100 

IF (ARG-VALUE (I) ) 12, 20, 12 

12 CONTINUE 

13 ... 



This program causes a scan of the 100-entry value 
table until it finds an entry that equals the value of 
the variable arg, whereupon it exits to statement 20 
with the value of I available for fixed point use; if no 
entry in the table equals the value of arg, a normal 
exit occurs to the statement (13) following the 
continue. 

PAUSE Statement 

general form 

PAUSE or PAUSE n 
where n is an unsigned fixed-point constant. 
examples 

PAUSE 
PAUSE 33333 

This statement halts the machine. Depressing the 
Start key causes the program to resume execution of 
the object program with the next statement. In a 
pause n statement, where n is a 5-digit number within 
the range of valid 1620 addresses, the n can be dis- 
played on the 1620 console in OR-2. 
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CALL EXIT Statement 

This statement is used at the end of a Fortran pro- 
gram to return control to the Monitor Control Record 
Analyzer routine. 

EXAMPLE 

CALL EXIT 



STOP Statement 

GENERAL FORM 

STOP or STOP n 
where n is an unsigned fixed-point constant. 

EXAMPLES 

STOP 

STOP 33333 

When the object program is executed, the machine 
types stop on the console typewriter, halts, and n can 
be displayed as it is for the pause n statement. De- 
pressing the Start key causes control to be returned 
to the Monitor Control Record Analyzer routine. 

END Statement 

GENERAL FORM 

END or END (l u I 2 , I 3 , I 4 , I 5 ) 
where I is 0, 1, or 2. 

EXAMPLES 

END 

END (1,2,0,1, 1) 

This statement differs from the previous control state- 
ments in that it does not affect the flow of control in 
the object program being compiled. Its application is 
to the Fortran ii-d processor during compilation. An 
end statement will generate a halt and branch (to the 
Monitor Control Record Analyzer routine) in the 
object program. The statement end (Ii, I 2 , I 3 , I 4 , I 5 ) 
is acceptable; however, the Is specified are meaning- 
less in 1620 FORTRAN II-D. 

The end statement must be the last statement 
(physically) of the source program. 



Inpul /Output Statements 

Input statements are used to read data into core stor- 
age and output statements are used to print or punch 
or store data. The read, accept, accept tape, punch, 



punch tape, print, and type statements require the 
use of the format statement which is described under 
the section entitled specification statements. 

In addition to the statements listed above, the 
record and fetch statements also must include an 
ordered list of the quantities to be transmitted (see 

SPECIFYING LISTS OF QUANTITIES ) . 

All Fortran ii-d Input/Output statements cause the 
object program to make use of die Supervisor I/O 
routine (see section entitled i/o routines under su- 
pervisor program). 

Specifying Lists of Quantities 

The input/output statements that call for transmission 
of data must include an ordered list of the quantities 
to be transmitted. The listed order must be the same 
as the order in which the words of information exist 
(for input), or the desired order for the output. 

The formation and meaning of a list is best de- 
scribed by an example. Assume that the value of K 
has been previously defined. 

A, B(3), (C(I), D(I, K), I = 1, 10) 
((E(IJ), I = 1, 10, 2), F(J, 3), J = 1, K) 

If this list is used with an output statement, the infor- 
mation will be written on the output medium in this 
order: 

A, B(3), C(l), D(l, K), C(2), D(2, K), . ., 
C(10), D(10, K), E(l, 1), E(3,l), . . . , E (9,1), 
F(l, 3), 

E(l, 2),E(3, 2), ...,E(9, 2), F(2, 3), 

E(1, K), E(3, K), . . . , E(9, K), F(K, 3) 

Similarly, if this list is used with an input statement, 
the successive values, as they are read from the ex- 
ternal medium, are placed into core storage in the 
indicated order. The list reads from left to right with 
repetition for variables enclosed within parentheses. 
Only variables, not constants, may be listed. 

If such a list is used, the execution is exactly that 
of a do loop. It is as though each opening parenthesis 
(except subscripting parentheses) were a do, with 
indexing given immediately before the matching clos- 
ing parenthesis, and with the do range extending up 
to that indexing information. The order of the above 
list can thus be considered the equivalent of the fol- 
lowing "program": 

1. OUTPUT A 

2. OUTPUT B(3) 

3. DO 5 I = 1, 10 

4. OUTPUT C( I) 



FORTRAN II-D 



105 



5. OUTPUT D(I,K) 

6. DO 9 J = 1, K 

7. DO 81 = 1,10,2 

8. OUTPUT E (I, J) 

9. OUTPUT F (J, 3) 

Note that indexing information, as in do's, consists of 
three constants or fixed-point variables, and that the 
last of these may be omitted, in which case, it is 
assumed to be 1. 

For a list of the form K, A(K) or of the form K, 
(A(I), I = 1, K), where an index or indexing para- 
meter itself appears earlier in the list of an input state- 
ment, the indexing will be carried out with the newly 
read-in value. 



Input/Output in Matrix Form 

As outlined in a previous section, Fortran ii-d treats 
variables according to conventional matrix practice. 
Thus, the input/output statement 

READ 1, ( ( A (I, J), I = 1, 2), J = 1, 3) 

causes the reading of I x J (in this case, 2x3) items 
of information. The data items are read into storage 
in the same order as they are found on the input 
medium. 



2. Element Lists 

An element list may consist of any one or more 
of the following types (assume K previously 
defined ) . 

a. A 

b. B(l) 

c. C(1,K) 

d. (B(I),D(I,K),I = 1,10) 

e. ( (E (I, J), I = 1, 10, 2), F (J, 3), J = I, K) 

3. The mode and order of lists must be the same 
for the reading and writing of the same data. 

Arrangement of Arrays in Storage 

Arrays are stored "column-wise," with the first of their 
subscripts varying most rapidly, and the last varying 
least rapidly. Arrays which are 1-dimensional are sim- 
ply stored sequentially. A 2-dimensional arrav named 
A would be stored sequentially in the order A IV 
A 2 . . . , A M j, Aj 2 , A 22 , . . . , A MN . A 3-dimensional 
array named T would be stored in the order 

^1,1,1' ^2,1,1' 3,1,1* ' ' " ' ^M.l.l' ^1,2,1' ' ' * ' ^M.N.l' ^1,1,2' 

T 

2,1,2' * - * ' 

The storage of arrays is in ascending order, i.e., the 
elements are stored sequentially in locations with 
ascending addresses. 



input/output of entire matrices 

When input/output of an entire matrix is desired, 
an abbreviated notation may be used for the list of 
the input/output statement; only the name of the 
array need be given and the indexing information 
may be omitted. 

Thus, if A has previously been listed in a dimension 
statement, the statement, 

READ 1, A 

is sufficient to read in all the elements of the array. 
The elements of the array are stored in successively 
higher storage locations. (If A has not previously ap- 
peared in a dimension statement, only the first ele- 
ment would be read in.) 

Lists for the record and fetch statements must be 
formed in the following manner: 

1. Matrix Lists 

If any item in the list is a matrix, all items in the 
list must be matrices. All matrices will start at 
the beginning of a record. Matrices written with 
a matrix list must be read with a matrix list. 



READ Statement 

The read statement is used to read data into core 
storage from the 1622 Card Read-Punch. 

general form 

READ n, List 

where n is the statement number of a FORMAT state- 
ment and List is a list of the quantities to be read. 

EXAMPLES 

READ 8, A, B, C 

READ 211, VOLT (I), OHM (J) 

The read statement causes data to be read from a 
card and causes the quantities from the card to be- 
come the values of the variables named in the list. 
Successive cards are read until the complete list has 
been "satisfied," i.e., all data items have been read, 
converted, and stored in the locations specified by the 
list of the read statement. The format statement to 
which the read refers, describes the arrangement of 
information on the cards and the type of conversion 
to be made. 
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ACCEPT TAPE Statement 

The accept tape statement is used to cause data 
to be read into core storage from the 1621 Paper Tape 
Reader. 

GENERAL FORM 

ACCEPT TAPE n, List 

where n is the statement number of a FORMAT 
statement, and List is as described under input/ 

OUTPUT STATEMENTS. 
EXAMPLE 

ACCEPT TAPE 30, K, A (J) 

The accept tape statement causes the object program 
to read information from the paper tape reader. Rec- 
ord after record is brought in, in accordance with 
the format statement, until the complete list has 
been satisfied. 

ACCEPT Statement 

The accept statement is used to allow data to be 
read in from the console typewriter. 

general form 

ACCEPT n, List 

where n is the statement number of a format state- 
ment, and List is as described under input/output 

STATEMENTS. 
EXAMPLE 

ACCEPT 20, A, B, C, D (3) 

The accept statement causes the object program to 
return the carriage of the console typewriter to await 
the entrance of data. The information is entered in 
accordance with the format statement until the com- 
plete list has been satisfied. 



PUNCH Statement 

The punch statement is used to cause data to be 
punched out in cards by the 1622 Card Read-Punch. 

general form 

PUNCH n, List 

where n is the statement number of a format state- 
ment, and List is as described under input/output 
statements. 



example 

PUNCH 40, ( A (J), J = 1, 10) 

The punch statement causes the object program to 
punch cards in accordance with the format statement 
until the complete list has been satisfied. 



PRINT and TYPE Statements 

The print statement and the type statement are 
used to type out data on the console typewriter. 
general form 

PRINT n, List 
TYPE n, List 

where n is the statement number of a FORMAT 
statement and List is as described under input/output 
statements. 

example 

PRINT 2, ( A (J), J = 1, 10) 

The print and type statements cause output data to 
be typed on the console typewriter. A carriage return 
occurs and successive lines are typed in accordance 
with the format statement, until the complete list 
has been satisfied. 

PUNCH TAPE Statement 

The punch tape statement is used to cause data to 
be punched by the 1624 paper tape punch. 

general form 

PUNCH TAPE n, List 

where n is the statement number of a format state- 
ment, and List is as described under input/output 
statements. 

EXAMPLE 

PUNCH TAPE 25, ( A (J), J = 1, 10) 

The punch tape statement causes information to be 
punched by the paper tape punch. 

Successive records are punched in accordance with 
the format statement until the complete list has been 
satisfied. 

FIND Statement 

This statement is used to position the disk access arm 
over a cylinder. 
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GENERAL FORM 

FIND (I) 

where I specifies the record number where reading or 
writing will start. The parameter I must be either: 

1. A nonsubscripted fixed-point variable. 

EXAMPLE 

FIND (IMAX) 
or 

2. A subscripted fixed-point variable. 

EXAMPLE 

FIND (IMAX(3)) 

The find statement causes the disk access arm to be 
positioned over a cylinder which will subsequently 
be read from or written on. The find statement may 
precede a fetch or record statement that contains 
the same I parameter, and, in this manner, takes ad- 
vantage of additional processing time while the access 
arm is moving. 

The record numbers (I) start at 1, and correspond 
to every sector if one-sector records are specified in 
the define disk statement; if two-sector records are 
specified, the record numbers correspond to every 
second sector. 

Only areas of disk storage within the area defined 
by a DEFINE DISK statement can be specified by a 
FIND. 

FETCH Statement 

This statement is used to read data from the 1311 
Disk Storage Drive. 

GENERAL FORM 

FETCH (I) List 

where I specifies the record number and List is as 
described under input/output statements. 

EXAMPLE 

FETCH (IMAX (3) ) (A (J), J = 1, 10) 

The fetch statement may be preceded by a find 
statement containing the same I parameter. When the 
fetch statement is executed, a check is performed to 
determine if the access arm is positioned over the 
proper cylinder. If the access arm is properly position- 
ed, reading begins; if it is not, a seek is initiated 
( seek time is not available for computation ) . 

The data designated by the list is read from the 
record specified by ( I ) . If the list specifies more items 
than can be obtained from one record, then the value 



of (I) is incremented by one and reading proceeds 
from the next sequential record. This procedure con- 
tinues until either the list has been "satisfied," i.e., 
until the data for all the variables in the list has been 
read in, or until the end of the area specified by N 2 
( see define disk ) has been reached. At the conclusion 
of a read operation, the value of I is one greater than 
the number of the last record read. The parameter 
(I) is the same as described for the find (I) state- 
ment. 

The compiled instructions for the fetch statement 
cause control to be transferred to the Monitor Input/ 
Output routine (see Supervisor section). 

RECORD Statement 

This statement is used to write data on the 1311 Disk 
Storage Drive. 

GENERAL FORM 

RECORD (I) List 
where I specifies the record number and List is as 
described under input/output statements. 

EXAMPLE 

RECORD (IMAX (3) ) (A (J), J = 1, 10) 

The record statement may be preceded by a find 
statement containing the same I parameter. When the 
record statement is executed, a check is performed 
to determine if the access arm is positioned over the 
proper cylinder. If the access arm is properly position- 
ed, writing begins; if it is not, a seek is initiated ( seek 
time is not available for computation). 

The data designated by the list is written on the 
record specified by ( I ) . If the list specifies more items 
than can be contained in one record, then the value 
of (I) is incremented by one and writing proceeds to 
the next sequential record. This procedure continues 
until either all items in the list have been written or 
until the end of the area specified by N 2 ( see define 
disk) has been reached. At the conclusion of a write 
operation, the value of I is one greater than the num- 
ber of the last record written. The parameter (I) is 
the same as described for the find (I) statement. 

The compiled instructions for the record statement 
cause control to be transferred to the Monitor Input/ 
Output routine (see Supervisor section). 

Specification Statements 

The specification statements supply necessary infor- 
mation to the Fortran processor, or information to in- 
crease program efficiency. No executable instructions 
are created in the object program for a specification 
statement. 
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DIMENSION Statement 

The dimension statement provides the information 
necessary to allocate storage for arrays in the object 
program. 

GENERAL FORM 

DIMENSION v, v, v, . . . 

where each v is the name of a variable, subscripted 
with 1, 2, or 3 unsigned fixed-point constants. Any 
number of v's may be given. 

EXAMPLE 

DIMENSION A(10), B(5, 15), CVAL (3, 4, 5) 

Each variable which appears in subscripted form 
in a program or subprogram must appear in a dimen- 
sion statement of that program or subprogram; the 
dimension statement must precede the first appear- 
ance of that variable. The dimension statement lists 
the maximum dimensions of arrays; in the object pro- 
gram, references to these arrays must never exceed 
the specified dimensions. 

The above example indicates that B is a two-dimen- 
sional array for which the subscripts never exceed 5 
and 15. The dimension statement, therefore, causes 
75 (i.e., 5 x 15) fields to be set aside for the array B. 

A single dimension statement may specify the di- 
mensions of a number of arrays. The maximum num- 
ber is limited by the number of continuation cards 
permitted. A program must not contain a dimension 
statement which includes the name of the program it- 
self, or any program which it calls. If any of the sub- 
scripts in a dimension statement exceeds 9999, an 
error will be indicated. 



EQUIVALENCE Statement 

The equivalence statement provides one method of 
controlling the allocation of data storage in the object 
program. 

general form 
EQUIVALENCE (a, b, c, . . . ), (d, e, f ) , . . . 

where a, b, c, d, e, f, . . . are variables that may be 
subscripted with constants only. 

example 

EQUIVALENCE ( A,B(1),C(5) ), ( D (17), E(3) ) 

When the logic of the program permits, the number 
of storage locations used can be reduced by causing 



locations to be shared by two or more variables. The 
equivalence statement should not be used to obtain 
mathematical equality between two or more elements. 
If fixed-point and floating-point variables are equiva- 
lenced, their word lengths must be the same, i.e., 
4- 2 must equal k. 

An equivalence statement may be placed anywhere 
in the source program, except as the first statement 
in the range of a do. Each pair of parentheses of the 
statement list encloses the names of two or more 
quantities which are to be stored in the same loca- 
tions during execution of the object program; any 
number of equivalences may be given. 

In an equivalence statement, a term such as C(p) 
can be defined for p>0 to mean the pth location of 
the C array. For example, C(5) would be the fifth 
location in the C array. Note that in an equivalence 
statement a two- or three-dimensional array must be 
referenced by a linear subscript (a single subscript 
notation which denotes the element of an array re- 
gardless of how the array is dimensioned). If pis not 

specified, it is understood to be 1. 

Thus, the example indicates that the A, B, and C 
arrays are to be assigned storage locations such that 
the elements A(l), B(l), and C(5) are to occupy the 
same location. In addition, it specifies that D(17) and 
E(3) are to share the same location. 

Quantities or arrays which are not mentioned in an 
equivalence statement are assigned unique locations. 

COMMON Statement 

Variables, including arrays, appearing in common 
statements are assigned to specific storage locations. 
Storage is assigned separately for each program 
compiled. 

GENERAL FORM 

COMMON A, B . . . 
where A, B . . . are the names of variables and non- 
subscripted array names. 

EXAMPLE 

COMMON X, ANGLE, MATA, MATB 

The common storage area may be shared by a pro- 
gram and its subprograms. In this way, the common 
statement enables a data storage area to be shared 
between programs in a way analogous to that by 
which the equivalence statement permits data stor- 
age-sharing within a single program. Where the logic 
of the programs permits, this can result in a large 
saving of storage space. 

Array names appearing in the common statement 
must previously have appeared in a dimension state- 
ment in the same program. 
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The common storage area is located at the high end 
of core storage, starting with address 19999, 39999 or 
59999. Variables in a common statement are assigned 
storage locations in descending sequence. For ex- 
ample: 

COMMON A, B, C 

With / = 10, A, B, and C would be stored in locations 
19999, 19987, and 19975 and similarly for 40,000 or 
60,000 positions. If C is dimensioned as C(10), then 
19975 is the address of C(10), which is the last ele- 
ment in the array, and 19867 is the address of C(l). 

The common statement takes precedence over the 
equivalence statement. Due to the complex interac- 
tion of these two statements, the programmer must 
adhere to the following two rules: 

1. Variables which are to be placed in common 
storage must be assigned prior to any equiva- 
lence statement containing these variables. For 
example, 

COMMON A 

EQUIVALENCE (A, B, C) 

The order in which the variables appear in the 
equivalence statement is irrevelent and rule 1 
applies if the common variable is B or C. 

2. Within an equivalence list there may be no 
more than one variable which previously has 
been: 

a. equivalenced, or 

b. placed in common. 

The following sequence of statements is invalid: 

EQUIVALENCE (A, B, C) 
EQUIVALENCE (X,Y,Z) 
EQUIVALENCE (A, Z) Violates (a) above 
COMMON D 

EQUIVALENCE (D, X, P) Violates combina- 
tion of (a) and 
(b). 

The sharing of storage locations desired in the 
above statements can be achieved by writing the 
statements as follows: 

COMMON D 
EQUIVALENCE (D, X, P) 
EQUIVALENCE (A, B, C, X) 
EQUIVALENCE (X,Y,Z) 

or 

COMMON D 

EQUIVALENCE (D, A, P, B, C, X, Y, Z) 



A diagnostic error message results if either Rule 
1 or 2 is violated. 



Arguments in Common Storage 

common statements may be used as a medium for 
transmitting arguments from the calling program to 
the called Fortran function or subroutine subpro- 
gram. In this way, they are implicitly, rather than 
explicitly transmitted as when listed in the parentheses 
following the subprogram name. 

To obtain implicit arguments, it is necessary to have 
only the corresponding variables in the two programs 
occupy the same location. This can be accomplished 
by having them occupy corresponding positions in 
common statements of the two programs. For ex- 
ample, (A, B, C) and (E, F, G) become implicit ar- 
guments when the calling program contains the state- 
ment common A, B, C, and the called subroutine 
contains the statement common E, F, G. 
Notes: 

1. To force correspondence in storage locations be- 
tween two variables in different programs which 
otherwise would occupy different relative posi- 
tions in common storage, it is valid to place 
dummy variable names in a common statement. 
These dummy names, which may be dimension- 
ed, will cause reservation of the space necessary 
to cause correspondence. 

2. While implicit arguments can take the place of 
all arguments in CALL-type subroutines, there 
must be at least one explicit argument in a 
Fortran function. Here, too, a dummy variable 
may be used for convenience. 

When one variable is equivalenced to a sec- 
ond variable which appears in a common state- 
ment, the first variable is also located in common 
storage. 



DEFINE DISK Statement 

The define disk statement specfies to the Fortran 
processor the size and quantity of data records that 
will be used with a particular program and its associ- 
ated subprograms. This statement must appear in the 
main program ( or link program ) and may appear only 
once in that program, when Disk I/O statements ap- 
pear in any part of the program or subprograms. 
Thus, all subprograms used by that main program or 
link program must use the same size record defined 
in the statement. 



110 



GENERAL FORM 

DEFINE DISK (N a , N 2 ) 

where the parameters Ni and N 2 are defined as 
follows: 

Ni — a fixed-point constant which specifies the 
number of words contained in a record of data. 
The value chosen for N x depends upon two 
things: (1) the word length (w) specified when 
the program was compiled, and (2) whether the 
user wants the length of a record of data to be 
one or two physical sectors. 

The value (Ni) is determined by following two rules: 
If to times (Ni) =*= 100, then the record length 
will be one disk sector. 

If w times (Ni) is more than 100 and ±= 200, 
then the record length will be two disk sectors. 

For example, assume that the word lengths specified 
at compile time were 8 for floating-point numbers (f) 
and 4 for fixed-point numbers (k). Since a record 
might contain all floating-point or all fixed-point num- 
bers (words), the larger of the two specified word 
lengths must be used to determine w. In this ex- 
ample, the floating-point length is the larger of the 
two word lengths; its total length is 10 (word length 
= f -\- 2). Therefore, if a data record is to be con- 
tained in one physical disk sector ( 100 disk locations ) , 
then Ni must be in the range of 1 to 10. An Ni of 10 
would be making the most efficient use of the avail- 
able disk storage. In this example, if the length of a 
data record is to be two physical disk sectors, then 
N x would be in the range of 11 to 20. A data record 
may not be greater than 2 sectors (200 digits). 

If arrays are read or written, the variables are not 
moved to a buffer area before going to or coming 
from the disk provided that both / and k are even in 
length. In this case, a group mark is placed at the 
end of the array before writing to disk. If 10-digit 
variables are used, the most efficient use of the disk 
would be with arrays containing 9, 19, 29, 39, etc. 
variables, so that the group mark is placed in the 
same sector as the variables to be recorded. 

N 2 — a fixed-point constant which specifies the num- 
ber of data records that will be used by this main 
program and its associated subprograms. N 2 is used 
by the compiler to reserve a portion of the specified 
work cylinder area ( see define parameters routine 



in the disk utility program section of this man- 
ual) for the purpose of transferring data to and 
from disk storage. The number of sectors that the 
compiler will reserve depends upon the record 
length specified by Nj. If one-sector records are 
specified, then N 2 sectors will be reserved; if two- 
sector records are specified, then 2 times N 2 sectors 
will be reserved. 



FORMAT Statement 

The format statement is used to describe the format 
of data being transmitted to and from the typewriter, 
card, or paper tape units. 

general form 

FORMAT (s l5 . . , s n ) 

where Si is a format specification. The format speci- 
fications must be separated by commas, slashes, or 
left parentheses. 

example 

FORMAT (12/ (E12.4, F10.4) ) 

The Input/Output statements, in addition to the 
list of quantities to be transmitted, contain the state- 
ment number of a format statement describing the 
information format to be used. The format statement 
also specifies the type of conversion to be performed 
between the internal machine language and the ex- 
ternal notation, format statements are not executable: 
their function is merely to supply information to the 
object program. Therefore they may be placed any- 
where in the source program ( except as the first state- 
ment in the range of a do ) . 

For the sake of clarity, examples given in this sec- 
tion are for typing on the console typewriter. How- 
ever, the description is valid for any input/output 
unit simply by generalizing the concept of "typewrit- 
ten line" to that of the unit record in the selected 
input/output unit. Thus, a unit record may be: 

1. A typewritten line with a maximum of 87 char- 
acters. 

2. A punched card with a maximum of 80 char- 
acters. 

3. A paper tape record with a maximum of 87 
characters. (The input record length may be 
variable up to 87; the output record length is 
fixed at 87.) 
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Numerical Fields 

Three forms of conversion for numerical data are 
available: 



FROM/TO 
INTERNAL 

Floating-point 
variable 

Floating-point 
variable 

Fixed-point 
variable 



TO/FROM 
TYPE EXTERNAL 

E Floating-point 

number with 

exponent 
F Floating-point 

number without 

exponent 
I Integer 



These types of conversion are specified in the forms: 

Ew.d, Fw.d, and Iw. 

where w and d are unsigned fixed-point constants. 

Format specifications are used to describe the input 
and output format. The format is specified by giving, 
from left to right, beginning with the first character 
of the record; 

1. The control character (E, F, or I) for the field. 

2. The width (to) of the field. The value of w must 
be large enough to include the field d, plus 
spaces for a sign and the decimal point. In ad- 
dition, four spaces for the exponent are needed 
in E-type conversion. The width specified may 
be greater than required to provide for spacing 
between numbers. 

3. For E- and F-type conversions, the number of 
decimal positions (d) (of the field) which ap- 
pear to the right of the decimal point. 

Specifications for successive fields are separated by 
commas. No format specification should be given that 
provides for more characters than the input/output 
unit record. Thus, a format statement for typewriter 
output should not provide for more than 87 characters 
per line, including blanks. For example: the state- 
ment format (12, E12.4, F10.4) might cause the fol- 
lowing line to be typed: 



Alphameric Fields 

Fortran ii-d provides a method by which alphameric 
information may be read or written. 

The specification for this purpose, ivH, is followed 
in the format statement by to alphameric characters. 
For example: 

24H THIS IS ALPHAMERIC DATA 

Note that blanks are considered alphameric characters 
and must be included as part of the count w. 

Information handled with the H specification is not 
given a name and may not be referred to or manipu- 
lated in storage in any way. 

The effect of wH depends on whether it is used 
with input or output. 

1. Input, w characters are extracted from the input 
record and replace the w characters included 
with the specification. 

2. Output. The w characters following the speci- 
fication, or the characters which replaced them, 
are written as part of the output record. Blanks 
are not ignored in an H specification as they are 
elsewhere. 

For example: The statement format (3HXY = 
F8.3) could produce any of the following lines: 



XY 
XY 
XY 



b-93.210 
b999.999 
bb28.768 



Another alphameric specification, Aw, causes w 
alphameric characters to be read into or written from 
a variable or array name. Since each alphameric char- 
acter is represented in core storage by two decimal 
digits, w must be less than, or equal to, the largest 
whole number resulting from k/2 or f/2, depending 
on whether the variable or array name is fixed or 
floating. If k or / is odd, a zero will be supplied as the 
least significant digit for the field in core storage. To 
facilitate manipulation of alphameric fields which are 
stored as floating-point numbers, the numbers will 
have zero as an exponent. This will have no effect on 
input/output. However, if the first character in a field 
is a blank, decimal point, or close parenthesis, the 
field will be treated as zero in the floating-point arith- 
metic subroutines. 



12 E12.4 F10.4 

b7-92.3100E+00bbbb-.0076 



Blank Fields 



Blank characters may be provided in an output rec- 
ord, and characters of an input record may be skip- 
ped, by means of the specifications wX where 0^ w 
( In these examples, b is included to indicate blank 87 ( w is the number of blanks provided or characters 
spaces.) skipped). When the specification is used with an in- 
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put record, w characters are considered to be blank, 
regardless of what they actually are, and are skipped 
over. 



Repetition of Field Format 

It may be desired to print n successive fields within 
one record, in the same fashion. This may be specified 
by giving n (where n is an unsigned fixed-point con- 
stant which must be < 99 ) before E, F, I, or A. Thus, 
the statement format (12, 3E12.4) might result in: 

27 - 92.3100E + 00b75.8000E - 02b55.3600E - 02 



The X specification should be used to space fields 
in the E-type format. In the statement 

E16.8, IX, E16.8, IX, E16.8 



a space will be provided between adjacent fields. 

A field read according to the E-type format need 
not have the exponent E( — )XX; i.e., it may actually 
take the same form as the F-type format. 

The P-scale factor may be used in a specification 
but it will be ignored by the Fortran ii-d processor. 



Repetition of Groups 

A limited parenthetical expression is permitted in or- 
der to enable repetition of data fields according to 
certain format specifications within a longer format 
statement specification. Thus, format (2(F10.6, 
E10.2), 14) is equivalent to format (F10.6, E10.2, 
F10.6, E10.2, 14). The number of repetitions is limit- 
ed to a maximum of 99. 



Scale Factors 

The E-type specification implies a scale factor. There- 
fore, E16.8 for an output field will result in the print- 
ing or punching of a maximum of ten significant digits 
in the form (-)XX.XXXXXXXXE(-)XX. A maxi- 
mum of / digits can be placed to the right of the 
decimal point if the d specification is greater than /. 
In this case, d—f low-order zeros will be inserted to 
satisfy the d specification. The following guide may 
be used when working with E-type specifications. 

1. If / (floating-point precision) ^ w— 6, then / 
significant digits will be printed or punched. 

2. If / >u;— 6, then w— 6 significant digits will be 
printed or punched. For example, if / = 10 and the 
floating-point number is stored as 123456789135, it 
will be printed as -12.34567891E-37, according to 
specification E16.8. 

The F-type specification also implies a scale factor. 
Therefore, F16.8 for an output field will result in the 
printing or punching of a maximum of fourteen sig- 
nificant digits in the form (-)XXXXXX.XXXXXXXX. 
However, a maximum of / digits will be placed to 
the right of the decimal point and the result will be 
right justified in the output field. If / is larger than 
w— 2, only w— 2 digits will appear in the output. 



Multiple Record Formats 

To deal with a block of more than one typewritten 
line, a format specification may have several differ- 
ent one-line formats, separated by a slash ( / ) to indi- 
cate the beginning of a new line. Thus, format 
(3F9.2, 2F10.4/8E14.5) specifies a multiline typewrit- 
ten block in which line 1 has format 3F9.2 and 2F10.4, 
and line 2 has format 8E14.5. 

If a multiple-line format is desired, such that the 
first two lines are typed according to a special format 
and all remaining lines are typed according to an- 
other format, the last line specification should be en- 
closed in a second pair of parentheses; e.g., format 
(12, 3E12.4/2F10.3, 3F9.4/(10F12.4) ). If data items 
remain to be transmitted after the last line format spe- 
cification has been completely satisfied, the format 
repeats from the last left parenthesis. 

As these examples show, both the slash and the 
closing parenthesis of the format statement indicate 
the termination of a record. 

Blank lines may be introduced into a multiline 
format statement by listing consecutive slashes. 



Format and Input/Output Statement Lists 

The format statement indicates, among other things, 
the maximum size of each record to be transmitted. In 
this connection it must be remembered that the 
format statement is used in conjunction with the list 
of some particular input/output statement, except 
when a format statement consists entirely of alpha- 
meric fields. When the format statement is used 
with the list, control in the object program switches 
back and forth between the list ( which specifies wheth- 
er data remains to be transmitted) and the format 
statement (which gives the specifications for trans- 
mission of that data ) . 
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Automatic Fix/Float 

During execution of input/output statements, it is 
permissible to read a fixed-point argument into a 
floating-point field or a floating-point argument into 
a fixed-point field, and to write from a floating-point 
field in a fixed-point format or from a fixed-point field 
in floating-point format. During reading, the format 
specification dictates the data conversion, and the 
list designation controls the mode of storing the argu- 
ment. During writing, the format specification dic- 
tates the mode of the field printed or punched. 

Ending a Format Statement 

During input/output of data, the object program 
scans the format statement to which the relevant 
input/output statement refers. When a specification 
for a numerical field is found and list items remain to 
be transmitted, input/output takes place according 
to the specification, and scanning of the format state- 
ment resumes. If no it&ms remain, transmission ceases 
and execution of that particular input/output state- 
ment is terminated. Thus, a numerical input/output 
operation will be brought to an end when a specifica- 
tion for a numerical field or the end of the format 
statement is encountered, and there are no items re- 
maining in the list. 

Data input to the Object Program 

Input data to be read when the object program is ex- 
ecuted must be in essentially the same format as given 
in the previous examples. Thus, a card to be read ac- 
cording to format (12, E12.4, F10.4) might be 
punched: 

27b-0.9321Eb02bbb-0.0076 

Within each field, all information must appear at 
the extreme right. Plus signs may be omitted or in- 
dicated by a b (blank) or -{-. Blanks in numerical 
fields are regarded as zeros, but zeros may not be 
substituted for blanks. For example, a sign cannot 
be preceded by zeros. Numbers for E-type and F-type 
conversion may contain any number of digits, but only 
the high-order / digits are retained. Numbers for 
I-type conversion may not contain more than k sig- 
nificant digits. The concept of / and k is treated 
in this manual under constants, variables, subscripts, 

AND EXPRESSIONS. 

To permit economy in punching, certain relaxations 
in input data format are permitted. 

1. Numbers for E-type conversion need not have 
four columns devoted to the exponent field. The 



start of the exponent field must be marked by an 
E, or if the E is Omitted, by a + or — (not a 
blank). Thus E2, E02, +2, 02, Eb02, and E+02 
are all permissible exponent fields. Blanks are not 
permitted between characters in the exponent field 
except for the optional blanks which may replace 
a plus sign. Numbers for E-type conversion must 
be right-justified in the data record field. 
2. Numbers for E-type or F-type conversion need 
not have their decimal points punched. If not 
punched, the format specification will supply 
them; for example, the number — 09321+2 with 
the specification E12.4 will be treated as though 
the decimal point has been punched between the 
and the 9. If the decimal point is punched in 
the card, its position overrides the indicated posi- 
tion in the format specification. 



Library Functions 

There are seven library functions (which are a part 
of 16 Fortran relocatable subroutines) included in 
the 1620 Monitor I system. These subroutines are 
selected for loading only when called for in the object 
program. The functions are: 



TYPE OF FUNCTION 
Logarithm (natural) 
Exponential 

Cosine of an angle given 

in radians 
Sine of an angle given 

in radians 
Arctangent of an angle 

given in radians 
Square Root 
Absolute Value 



FORTRAN NAME 

LOGF 

EXPF 

COSF 



SINF 

ATANF 

SQRTF 
ABSF 



The name of the library function is followed by the 
argument enclosed in parentheses. The argument can 
be a variable (subscripted or not subscripted), or an 
expression. 

EXAMPLES 

A = COSF (B) 

A = SQRTF (BETA) 

Y = A - SINF (B* SQRTF (C) ) 

For the last example, the assembled instructions of 
the object program will: 

1. Branch to the square root subroutine to compute 
the value of C. 

2. Multiply the square root value of C (obtained 
in step 1) by B. 
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3. Branch to the sinf subroutine to compute the 
sine of the value obtained from step 2. 

4. Subtract the value computed so far from the 
variable A. 

5. Replace the present value of the variable Y with 
the value of the complete expression. 



Approximation Method and Estimated Errors 

Results of the library subroutines are truncated, and, 
in general, errors are no greater than one in the last 
digit of the mantissa. Approximation methods and 
errors for functional subroutines are described in 
greater detail in the following paragraphs. 

1. Logarithm. The natural logarithm of the frac- 
tional part of the positive argument is evaluated 
by using a power series expansion. The exponent 
of the argument is multiplied by In 10. The prod- 
uct is added to the logarithm of the fraction, and 
the sum is the logarithm of the argument. For 
an argument with its value A in the range 
.99 < A ^ 1.01, the leading digits of its logarithm 
will be zeros, and the result will contain less 
than / significant digits because of normalization. 
The maximum truncation error in the result is 

± io- f 

2. Exponential. The value of e* , where A is the 
value of the argument, is calculated by using a 
series approximation for 10 A . For |A| = 
227.955924206. . . an exponent overflow will re- 
sult for A>0 or exponent underflow for A<0. 
The value of A is multiplied by log e and the 
product separated into an integer and a fraction- 
al part. The integer becomes the exponent of the 
result and the fractional part is used to produce 
its mantissa by series approximation. If A is 
greater than zero, the maximum error in the re- 
suit is ±5 x 10" f . 

3. Cosine-Sine. The cosine and sine functions of an 
argument with value A in radians are computed 
by using a series approximation for cosine A with 
sine A = cosine ( _7r — A ) . The value A is re- 

2 

duced to within the range — tt_ ^ A ^ ir. For 

2 ~2 
arguments with exponents less than 03, the mag- 
nitude of the maximum truncation error in the 
mantissa of the result does not exceed 10~ f . Ac- 
curacy in the mantissa of the result decreases as 
the size of the argument (exponent 03 or great- 
er) increases. 

4. Arctangent. The arctangent function of an argu- 
ment with value A is evaluated by using a series 



approximation. The result is given in radians. 
The maximum truncation error in the mantissa 
of the result is ±10 f , except for results with an 
exponent less than or equal to —2. The maximum 
error for these results is ±1 in the (f+1) deci- 
mal place. 

5. Square Root. The square root is derived by the 
odd integer method. The result is accurate to 1 
in the last digit of the mantissa. 

6. A ** B. A B is evaluated as EXPF (B*LOGF 
(A)). Three subroutines, logarithm, multiply, 
and exponential, are involved. An error in one 
of these subroutines may propagate other errors 
or increase the error in a succeeding subroutine. 
Normally, the magnitude of the error does not 
exceed 10 1-f . 



Additional Library Functions 

Up to fourteen additional functions can be added to 
the library of subroutines. These functions are defined 
(written) in machine language or sps (see adding 

SUBROUTINES TO FORTRAN LIBRARY). 
GENERAL FORM 

NAME (A) 

where name is 1 to 6 alphabetic or numerical char- 
acters (no special characters) of which the first is 
alphabetic, and A is the argument enclosed in paren- 
theses. 

example 

TIME (A) 

The mode of the additional library function is deter- 
mined by its argument. 

example 

TIME (ABLE) Floating point 
TIME (LABEL) Fixed point 

Library functions can be called by means of an arith- 
metic expression that includes the name of the func- 
tion. The appearance of the name in the arithmetic 
expression serves to call the function; the value ( a 
single numerical quantity) of the function is then 
computed, using the argument which is supplied in 
the parentheses following the function name. Only 
one value is produced by a given Library function. 
The mode of a Library subroutine is determined by 
its argument. 
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EXAMPLES 

COS (A) Floating point 
COSH (I) Fixed point 

The relocatable Library subroutines supplied with the 
1620 Fortran ii-d System, with the exception of Ab- 
solute Value Function (absf), will not accept fixed- 
point arguments. 



Arithmetic Statement Functions 

These functions are defined by a single Fortran ii-d 
arithmetic statement and apply only to the particular 
program in which they appear. They are named in 
the same manner as the Library functions: 

The name of the function consists of 1 to 6 alpha- 
betic or numerical characters (not special char- 
acters ) of which the first must be alphabetic. The 
name of the function is followed by parentheses 
enclosing the arguments, which are separated by 
commas. 

The function statement is defined as follows: 

GENERAL FORM 

NAME(ARG)= E 

where name is a function name followed by paren- 
theses enclosing its arguments (which must be 
non-subscripted variables) separated by commas, 
and E is an expression which does not involve 
subscripted variables. Any functions appearing in E 
must be available to the program or already defined 
by preceding arithmetic statements. The function 
names in the main program must agree with those de- 
fined in the arithmetic statements and function 
statements. 

EXAMPLES 



In 1620 Fortran ii-d, the mode of the value is de- 
termined by the function name, e.g., if the function 
name begins with I through N, the mode will be fixed 
point. 

The right-hand side of a function statement may be 
any expression not involving subscripted variables that 
meets the requirements specified for expressions. In 
particular, functions may be used freely, provided that 
any such functions, if it is not a Library function, has 
been defined in a preceding function statement. No 
function can be used as an argument of itself. 

As many as desired of the variables appearing in 
the expression on the right-hand side may be stated 
on the left-hand side as arguments of the function. 
Since the arguments are really only dummy variables, 
their names are unimportant (except insofar as they 
indicate fixed-point or floating-point mode) and they 
may even be the same as names appearing elsewhere 
in the program. 

Those variables on the right-hand side which are 
not stated as arguments are treated as parameters 
Thus, if FRSTF is defined in a function statement as 
FRSTF(X) = A*X+B then a later reference to 
FRTSF(Y) will cause ay-\-b, based on the current 
values of a, b, and y, to be computed. The naming of 
parameters, therefore, must follow the normal rules 
of uniqueness. 

A function defined by a function statement may be 
used in the same way as any other function. Its argu- 
ments may be expressions and may involve subscript- 
ed variables; thus, a reference to FRSTF (Z-fY(I)), 
as a result of the previous definition of FRSTF, will 
cause a(z + yi) + b to be computed on the basis of 
the current values of a, b, y , and z. 

Functions defined by arithmetic statements are al- 
ways compiled as closed subroutines. 

All the arithmetic statements defining functions to 
be used in a program must precede the first execut- 
able statement of the program. 



FRSTF (X) = A*X+B 

SCNDF (X,B) = A*X+B 

THRDF (D) = FRSTF(E)/D 

FRTHF (F, G) = SCNDF (F, THRDF (G) ) 

FFTHF (LA) = 3.0* A* *I 

SXTHF(J)=J + K 

As is the case with the Library functions, the ap- 
pearance of the name in the arithmetic statements 
serves to call the function. The value of the function 
(a single numerical quantity) is then computed, using 
the arguments which are supplied in the parentheses 
following the function name. Only one value is pro- 
duced by a given arithmetic statement function. 



FORTRAN Functions and 
Subprograms 



Library (closed) function 
Arithmetic Statement function 
FUNCTION subprogram 
SUBROUTINE subprogram 



Method of 
Naming 



Same 
> for 
four 



Method of 
Defining 



Individual 
Individual 



Same 
for 



Method of 
Calling 



Same 
for 
three 

J 

Individual 
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Dummy Variables within an Arithmetic 
Statement Function 

A variable appearing as a dummy argument within an 
arithmetic statement function must not previously 
have been defined except as a dummy argument in a 
previous arithmetic statement function. After the vari- 
able is used as a dummy argument, it may appear 
elsewhere in the program. 



Subprogram Statements 

Subroutines which are referred to by other Fortran 
ii-d programs can be written as subprograms in the 
Fortran ii-d language. A subroutine is considered to 
be any sequence of instructions that performs a de- 
sired operation. A subprogram is defined as a program 
written in Fortran language that is referred to or 
used by another Fortran source program. 

Two types of Fortran ii-d coded subprograms are 
available: the function subprogram and the subrou- 
tine subprogram. Four statements, subroutine, func- 
tion, call, and return, are necessary for their defini- 
tion and use. 

Although function subprograms and subroutine 
subprograms are treated together and may be viewed 
as similar, it must be remembered that they differ in 
two fundamental respects: 

1. The function subprogram, which results in a 
fortan function, as defined under functions, is 
always single-valued, whereas the subroutine 
subprogram may be multivalued. 

2. The function subprogram is called or referred 
to by the arithmetic expression containing its 
name; the subroutine subprogram can only be 
referred to by a call statement (see call state- 
ment ) . 

Subprograms of each of these two types are coded 
in Fortran ii-d language. In all respects, they con- 
form to the rules for Fortran programming. 

FUNCTION Statement 

The function statement, always first in a function 
subprogram, defines it as a Fortran function sub- 
program. 

general form 

FUNCTION Name (a,, a,,, ... , a n ) 

where Name is the symbolic name of a single-valued 
function, and each argument a,, a^, . . . , a n , of which 
there must be at least one, is a nonsubscripted variable 
name. 



The function name consists of 1 to 6 alphabetic or 
numerical characters, the first of which must be al- 
phabetic. 

examples 

FUNCTION ARCSN (RADS) 
FUNCTION ROOT (B, A, C) 
FUNCTION INTRT (RATE, YEARS) 

In a function subprogram, the name of the func- 
tion must appear either in an input statement list, or 
at least once as the variable on the left-hand side of 
an arithmetic statement. An example of the latter is: 

FUNCTION NAME (A, B) 



NAME=:Z+B 



RETURN 

The value of the function is returned to the calling 
program. The mode of a function subprogram is de- 
termined by its name. 

EXAMPLES 

FUNCTION AMAST (A, K) Floating point 
FUNCTION IAMAST (A, K) Fixed point 

The arguments following the name in the function 
statement may be considered as "dummy" variable 
names, that is, during object program execution other 
actual arguments are subsituted for them. Therefore, 
the arguments which follow the function reference in 
the calling program must agree in number, order, and 
mode with those in the function statement in the 
subprogram. Furthermore, when a dummy argument 
is an array name, the corresponding actual argument 
must also be an array name. Each of these array 
names must appear in similar dimension statements 
within its respective program. None of the dummy 
variables may appear in EQUIVALENCE statements 
in the FUNCTION subprogram. 

SUBROUTINE Statement 

general form 

SUBROUTINE Name (a„ a 2 , . . . , a„) 
where Name is the symbolic name of a subprogram, 
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and each argument, a l5 a 2 , . . . , a n , if any, is a nonsub- 
scripted variable name. The name of the subprogram 
consists of 1 to 6 alphabetic or numerical characters, 
the first of which must be alphabetic. 

EXAMPLES 

SUBROUTINE MATMP (A, N, M, B, L, C) 
SUBROUTINE QDRT (B, A, C, ROOT 1, ROOT 2) 

The subroutine statement, always first in a subrou- 
tine subprogram, defines it as a subroutine subpro- 
gram. A subprogram introduced by the subroutine 
statement must be a Fortran program and may con- 
tain any Fortran ii-d statements except function, 
define disk, or another subroutine statement. 

A subroutine subprogram must be referred to by 
a call statement in the calling program. The call 
statement specifies the name of the subprogram and 
its arguments. 

Unlike the function subprogram which results in 
the calculation of only a single numerical value, the 
subroutine subprogram uses one or more of its argu- 
ments to return results. Therefore, the arguments so 
used must appear on the left side of an arithmetic 
statement in the subprogram (or alternately, in an 
input statement list within the subprogram). 

The arguments of the subroutine statements are 
dummy names that are replaced, at the time of execu- 
tion, by the actual arguments supplied in the call 
statement. There must, therefore, be correspondence 
in number, order, and mode, between the two sets 
of arguments. Furthermore, when a dummy argument 
is an array name, the corresponding actual argument 
must also be an array name. Each of these array 
names must appear in similar dimension statements 
within its respective program. 

For example, the subprogram headed by 

SUBROUTINE MATMP (A, N, M, B, L, C) 

could be called by the main program through the 
call statement 

CALL MATMP (X, 5, 10, Y, 7, Z) 

where the dummy variables, A, B, C, are the names 
of matrices. A, B, C must appear in a dimension 
statement in subprogram MATMP, and X, Y, Z must 
appear in a dimension statement in the calling pro- 
gram. The dimensions assigned must be the same in 
both statements. 

None of the dummy variables may appear in 
equivalence statements in the subroutine subpro- 
programs. These subprograms may be independently 



compiled or used in a multiple compilation with 
others. 



CALL Statement 

The call statement refers only to the subroutine sub- 
program, whereas the return statement is used by 
both the function and subroutine subprograms. 

general form 

CALL Name (a,, a,, . . . , a n ) 

where Name is the name of a subroutine subprogram, 
and a u a 2 , . . . , a n are arguments. 



EXAMPLES 

CALL MATMP (X, 5, 10, Y, 7, Z) 

CALL QDRT (P*9.732, Q/4.536, R-S**2.0, XI, X2) 

This statement is used to call subroutine subpro- 
grams; the call transfers control to the subprogram 
and presents it with the parenthesized arguments. 
Each argument may be one of the following types: 

1. Fixed-point constant. 

2. Floating-point constant. 

3. Fixed-point variable, with or without subscripts. 

4. Floating-point variable, with or without sub- 
scripts. 

5. Arithmetic expression. 

The arguments presented by the call statement 
must agree in number, order, mode, and array size 
with the corresponding arguments in the subroutine 
statement of the called subprogram, and none of the 
arguments may have the same name as the subrou- 
tine subprogram being called. 



RETURN Statement 

EXAMPLE 

RETURN 

This statement terminates any subprogram of the 
type headed by either a subroutine or a function 
statement, and returns control to the calling program. 
A return statement must, therefore, be the last exe- 
cuted statement of the subprogram. It need not be 
the last statement of the subprogram physically, but 
can be any point reached by a path of control. Any 
number of RETURN statements may be used. 
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CALL LINK Statement 

This statement is used to call a new program from 
disk storage and transfer to the first executable state- 
ment in that program. 

GENERAL FORM 

CALL LINK (NAME) 

where name is the name of a Fortran program as 
contained in the Equivalence table. The program 
name must be formed with one to six alphabetic or 
numerical characters (no special characters) of which 
the first is alphabetic. 

examples 

CALL LINK (JOE) 
CALL LINK (PROG18) 

The call link statement is used to call another pro- 
gram into core storage. The program that is called will 
cause all subprograms and library subroutines that 
it references to be read into core storage (the arith- 
metic and I/O subroutines are also reloaded). Any 
program called by using the call link statement must 
be in disk storage or it is assumed that the "link" pro- 
gram -is the first mainline program encountered by 
the system input unit. If the logic of the program 
allows one of several links to possibly be called, it 
is necessary that the link programs be on disk storage. 
If a subprogram is not available (in disk storage) 
that the "link" program references, the Fortran load- 
er will request that the missing subprogram be load- 
ed into core from cards or paper tape. 

Only 50 links that call local subprograms can ap- 
pear in any one Fortran job. 

The common area is not destroyed during the 
loading of the link programs. If the size of common 
differs ( between the calling program and the link pro- 
gram being called), the common area size will be the 
size defined for the new program. 

FORTRAN ll-D Processor 

The 1620 Fortran ii-d Processor program is used to 
change a user-written Fortran source program into 
an object program of 1620 machine language instruc- 
tions. All programs are compiled in relocatable for- 
mat, i.e., the program instruction addresses are com- 
piled relative to a starting address of 00000. The in- 
struction addresses must be modified before execution 
can take place. 

The processor operates under control of the Moni- 
tor I Supervisor program. It can be called into opera- 
tion only by use of the for or forx Monitor Control 
records. 



The Monitor I system permits the following For- 
tran operations: 

1. Fortran source program compilation. 

2. Fortran source program compilation and imme- 
diate execution of the compiled program. From 
the programmer's point of view, this is equiva- 
lent to entering a source program into the ma- 
chine as an object program. 

3. Object programs may be placed in disk storage 
after compilation and/or they may be punched 
in cards or paper tape. 

4. Execution of Fortran object programs that are 
in disk storage or are in cards or paper tape. 

5. Execution of programs in "links," a procedure 
necessary where the total program is too large 
to fit into core storage at one time. A "link" is a 
section of the total program (see call link 
statement). 



General Compilation Process 

Although the process of compiling an object program 
is a continuous one, there are two phases through 
which the source statements pass before an object 
program is compiled. The user enters the source state- 
ments using cards, paper tape, or typewriter input 
and obtains output in cards, paper tape, or on the 
typewriter or disk storage. The input and output 
units are selected by the use of control records. The 
object program may be placed permanently on disk 
and it may be punched out in either paper tape or 
cards. 

The source statements are analyzed during Phase 
I and broken apart into instruction generating ele- 
ments that are strings of 4-digit codes. These strings 
are then written on disk storage for use by Phase II, 
which outputs the 1620 coding in relocatable format. 
Errors are indicated on the console typewriter as 
they are detected. The final output of any compilation 
is a single program or subprogram. Unless this pro- 
gram is an independent entity, capable of being 
executed without other programs or library functions, 
the user will need to load the other programs before 
execution can take place. To initiate the loading 
process, the user may (1) call the compiler with a 
forx Control record, or (2) call the compiled pro- 
gram using an xeqs Control record (see monitor i 
control records). A program loaded by means of a 
forx or xeqs Control record will also have all associ- 
ated subroutines and subprograms loaded with it. 
(All associated subprograms are loaded except those 
defined as "load-on-call"; see local control record). 
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The arrangement for stacked input to process a 
source program is shown in Figure 14. the for or 
forx Monitor Control record is followed by optional 
Fortran Control records, followed by the source pro- 
gram. The inclusion of a paus Monitor Control record 
will allow the operator to set the Console Program 
switches to the desired position (options for Program 
switches are shown in Table 9.) After setting the 
switches, the operator depresses start and the Super- 
visor reads the for or forx record, the Fortran Con- 
trol records, if any, and begins compilation of the 
source program. 

During Phase I (reading the source program and 
creating instruction generating elements), the Phase 
I source program errors that are listed in Table 10 may 
be detected. The Phase I errors are of two types: 
Type I, compilation continues, but outputting of 
intermediate output is stopped; Type II, compilation 
and outputting both continue. 

As a program is being compiled, it is placed in a 
disk storage area used for temporary storage. When 
all source statements have been read and the instruc- 
tion generating elements entered in the temporary 
storage area, Phase II of the processor takes control. 
Phase II converts the Phase I instruction codes into 
machine language instructions and places the instruc- 
tions in the temporary disk storage area. When all 
intermediate output is processed, a message denoting 
the end of compilation is printed. Depending on the 
Fortran Control records loaded with the source pro- 
gram, any of the following options can occur: 

1. Control is returned to the Supervisor. Control 
records for output were not used; compilation 



was apparently for editing only of source pro- 
gram. 

2. Object program is loaded to permanent area of 
disk storage and/or outputted in cards or paper 
tape. 

3. Object program is executed using data from 
input unit or disk storage. 

The compiled object program contains a header 
record which specifies various parameters and infor- 
mation needed when it is to be loaded for execution, 
such the program name, length of the program, / 
and k, Fortran program constant, and indicators to 
specify the Library subroutines used. 

Subprogram identification records, consisting of 18 
digits of name and address information, are created 
for each subprogram called by a program. Up to 100 
subprograms may be used with any one Fortran main 
program or Link program. 



FORTRAN ll-D Control Records 

The Fortran Compiler can utilize four control records 
that specify output options, etc. When they are used, 
these records may be in any order but they must be 
read in between the for or forx Control record and 
the source program statements as shown in Figure 15. 

The Fortran Control records must have an asterisk 
in column 1 and the Name must be punched begin- 
ning in column 2. If a control record (* in column 
1) is read and is not a legally named record, the 
message shown below is typed and the program halts. 

ERROR, INVALID CONTROL RECORD 




FORTRAN ll-D 
Control Records 
/ 



MONITOR 
Control Records 



The operator must correct the invalid record in 
the input unit and depress start. 

The prescribed format and specific function of each 
control record is described below. 

FANDK. The Fortran ii-d Compiler, as delivered 
to the user, will process an object program with a 
floating-point word length of 10 digits (f of 08 + 
2=10) and a fixed-point word length of 4 digits. The 
operator may vary these lengths, at compilation time, 
by using the fandk control record. The format of the 
fandk Control record is as follows: 



Columns 1-6 
7-8 
9-10 
11-80 



* FANDK 

ff 
kk 

not used 



Figure 14. Typical Stacked Input for FORTRAN Compilation 



where fi is the floating-point mantissa length and kk 
is the fixed-point word length. 
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FORTRAN Source Program 



* FANDK 
(Define f and k) 



* L DISK 

(Load Object Program to Disk) 



* POBJP 

(Punch Object Program) 



* PSTSN 

(Punch Symbol Table & Statement No.) 



FOR or FORX 
Monitor Control Record 




Optional 



Figure 15. FORTRAN II-D Control Records 



If entry is from the console typewriter, the same 
format must be followed. 

The range of / is 2 through 28, of k, 4 through 10. 
If / or k is out of the prescribed range, the following 
message is typed: 

ERROR, F OR K OUTSIDE RANGE 

PSTSN. This control record causes the symbol table 
and addresses of numbered statements to be punched. 
The format is as follows: 

Columns 1-6 *PSTSN 
7 n 
8-80 not used 

where n is 2 if paper tape output is desired or 4 for 
card output. See Note below. 

POBJP. The pobjp Control record causes the object 
program to be punched following compilation. The 
format is as follows: 

Columns 1-6 *POBJP 
7 n 
8-80 not used 

where n is the same as for the pstsn Control record. 

The format of the processor output (object pro- 
gram) is given under loader routine of the super- 
visor section of this publication. 

Note: If n is not 2 or 4 in the pstsn or pobjp Control 
records, the following message is typed out on the 
console typewriter and the program will halt. 

ERROR, INVALID OUTPUT UNIT CODE 



The operator must correct the record that contains 
the error and depress the 1620 Start key. 

LDISK. The ldisk Control record causes the object 
program to be moved to a permanent area of disk 
storage following compilation. The format for the 
ldisk control statement is: 



Columns 1-6 
7-12 
13-16 
17-80 



*LDISK 

name (optional) 
number (optional) 
not used 



where Name is the left-justified program name, and 
number is a 4-digit dim entry number not already 
in use. If a dim entry is not supplied, the Disk Utility 
program will assign one. 

After compilation, the Disk Utility Program will 
load the programs to disk and create a dim entry for 
the program. At that time, the Name supplied (in the 
ldisk record) will be placed in the Monitor Equiva- 
lence table. It is not necessary to supply the name 
of a function or subroutine subprogram. The name 
used in the function or subroutine statement will be 
used. 

Entering the Source Program 

The source program can be entered in the form of a 
punched paper tape, a deck of punched cards, or a list 
of statements to be typed in at the console typewriter. 
This entry option is specified in the for or forx Moni- 
tor Control record. 

OPERATING PROCEDURES 

All of the following operations may be performed be- 
fore the processor is called, except possibly items 1 
and 3. If the operation taking place just prior to the 
compilation of a source program required the Console 
Program switches to be set differently than the desired 
settings for compiling a Monitor paus Control record 
should have been inserted before the for or forx 
record. This will allow time for the operator to change 
the switches. 

The operations required to process a source pro- 
gram are as follows: 

1. Set the Console Program switches for the desired 
compilation operations (see Table 9). 

2. Set all check switches to program. 

3. If punching is to take place, ready the paper 
tape punch with feed code leader or, ready the 
card punch by loading blank cards and depress- 
ing the Punch Start key. 

4. Place a for or forx Control record in the input 
unit (see the Monitor I Control Records section 
for format ) . 
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Table 9. Program Switch Settings for FORTRAN II-D 



SWITCH 


ON 


OFF 


1 


Source statements are 
typed on the console type- 
writer as they are proc- 
essed . 

Source statement errors 
are typed in the form 
ERROR n.* 

At the end of Phase 1, 
symbol table and statement 
numbers are typed out. 


Source statements are not 
listed. 

Source statement errors 
are typed in the form SSSS 
and CCCC ERROR n.* 

Symbol table and statement 
numbers are not typed out. 


2 


Trace instructions for 
arithmetic statements are 
compiled but no additional 
instructions are generated. 


Trace instructions for 
arithmetic statements are 
not compi led . 


3 


A trace instruction is com- 
piled to trace the value of 
the expression generated 
in an IF statement. An 
additional instruction is 
generated in the object 
program for every IF state- 
ment. 


Trace instructions for IF 
statements are not com- 
piled. 


4 


Errors made while typing 
source statements can be 
corrected by 

a . turning on switch 4 , 

b. pressing the Release 
and Start keys, 


P^-c. turning off switch 4, 
d. retyping statement. 



*See description under Phase 1 Errors 



5. Place any desired Fortran Control records in the 
input unit (see Fortran ii-d control records). 

6. Place the source program statements in the input 
unit (specified in the for or forx record). 

To resume machine operation, if the machine was 
stopped to allow the operator to perform any of the 
above operations, depress the Start key. 

Typewriter Input. If source statements are entered 
by way of the console typewriter, each statement 
must be terminated with a record mark. After a state- 
ment is typed, the operator must depress the R-S key 
to process that statement. As soon as a statement is 
processed, the carriage returns to await entry of the 
next statement. A statement of up to 330 characters 
may be typed with no intervening punctuation, spac- 
ing, etc. 

Normally card format need not be followed, how- 
ever, in a comment statement the C must be followed 
by at least two blanks (spaces) before the comment 
is typed. 



Phase I Errors 

During Phase I of compilation, a number of tests are 
made for source program errors. If an error is found 
in a source statement and Program Switch 1 is on, a 
message in the form 

ERROR n 

is typed, where n is the error code (see Table 10). If 
switch 1 is off, the error message is in the form 

SSSS + CCCC ERROR n 

where ssss is the last statement number encountered 
by the program prior to the error, and cccc is the 
number of statements following the last numbered 
statement, ssss -j- cccc is the statement that contains 
the error. For example the message 

0509 + 0012 ERROR 1 

means that the twelfth statement following the state- 
ment numbered 509 is incorrect. If an error occurs 
before a statement number is encountered, ssss will 
be 0000. Errors detected after processing the end 
statement reference the end statement. Comment 
cards, blank cards, and continuation cards are not 
included in the statement count. 

If any Type I errors ( see Table 10 ) are found during 
Phase I, no attempt is made to process the source 
program through Phase II. At the completion of Phase 
I, control is returned to the Monitor I Supervisor 
program (Monitor Control Record Analyzer routine). 

If a Type II error is found (other than Error 60), 
compilation continues on through Phase II. However, 
any Fortran Control records specifying output that 
were included with the source program will be dis- 
regarded and control will transfer to the Supervisor 
program at the completion of Phase II. If Error 60 
is encountered, normal processing is continued since 
N a and N 2 can be corrected when loading the object 
program (see subroutine error checks). 

Phase II Errors 

During processing of the intermediate output, cer- 
tain checks are performed which were impossible to 
perform during Phase I. If an error is detected, an 
error message in one of the following forms is typed: 

XXXX SYMBOL TABLE FULL 
XXXX IMPROPER DO NESTING 
XXXX DO TABLE FULL 
XXXX MIXED MODE 
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Table 10. FORTRAN Phase I Source Program Errors 

TYPE 1: Compilation continues but outputting of intermediate output is stopped. Only one error of this type is detected in any one statement. 



Error No. 


Condition 


1 


Undeterminable, misspelled, or incorrectly 
formed statement . 


2 


Syntax error in a nonarithmetic statement 
(exception: DO statements). 


3 


Dimensioned variable used improperly, 
i.e., without subscripting, or subscripting 
appears on a variable not previously 
dimensioned . 


4 


Symbol table full (processing may not be 
continued). 


5 


Incorrect subscript. 


6 


Same statement number assigned to more 
than one statement. 


7 
8 


Control transferred to FORMAT statement. 

Variable name greater than 6 alphameric 
characters. 


9 


Variable name used both as a nondimensioned 
variable name and as a Subroutine or Function 
name. 


10 


Invalid variable within an EQUIVALENCE 
statement. 


11 


Subroutine or Function name or dummy var- 
iable used in an EQUIVALENCE state- 
ment (subprogram only). 


12 


k not equal to f + 2 for equivalence of 
fixed point to floating point variables. 


13 


Within an Equivalence list, placement of 
two variables previously in Common, or one 
variable previously equivalenced and 
another either equivalenced or placed in 
Common . 


14 


Sense Switch number missing in an IF 
(Sense Switch n) statement. 


15 


Statement number or numbers missing, 
not separated by commas, or nonnumerical 
in a transfer statement. 


16 


Index of a computed GO TO missing, 
invalid, or not preceded by a comma. 


17 
18 


Fixed point number greater than k digits. 
Invalid floating point number. 


19 


Incorrect subscripting within a DIMENSION 
statement. 


20 


First character of a name not alphabetic. 


21 


Variable within a DIMENSION statement 
previously used as a nondimensioned 
variable, or previously dimensioned or 
used as a Subroutine or Function name. 


TYPE 2: Compilation of intermediate output continues. 


Error No. 


Condition 


51 


DO loop ended with a transfer statement. 


52 


No statement number for next executable 
statement following a transfer statement. 


53 


Improperly ended nonarithmetic statement. 


54 


Unnumbered CONTINUE statement. 


55 


Number of Common addresses assigned in 
excess of storage capacity because of 
Equivalence. See note at end of Table. 


56 


Statement number or subscript greater than 
9999 (only first 4 significant digits are retained). 



Error No. 


Condition 


22 


Dimensioned variable used within an 
arithmetic statement function. 


23 


More than four continuation cards. 


24 


Statement number in a DO statement 
appeared on a previous statement. 


25 


Syntax error in a DO statement. 


26 


FORMAT number missing in an input/ 
output statement. 


27 


Statement number in an input/output 
statement appeared previously on a state- 
ment other than a FORMAT statement, or 
a number on a FORMAT statement appeared 
in other than an input/output statement. 


28 


Syntax error in input/output list or an 
invalid list element. 


29 


Syntax error in CALL statement, or an 
invalid argument. 


30 


SUBROUTINE or FUNCTION statement 
not the first statement in a subprogram. 


3 1 


Syntax error or invalid parameter in a 
SUBROUTINE or FUNCTION statement. 


32 


Syntax error or invalid variable in a 
COMMON statement. 


33 


Variable in a Common list previously 

placed in Common or previously equivalenced. 


34 


Library function name appeared to the left 
of an equal sign or in a COMMON, 
EQUIVALENCE, DIMENSION, or input/ 
output statement; or function name not 
followed by a left parenthesis. 


35 


Syntax error in FORMAT statement, or 
invalid FORMAT specifications. 


36 


Invalid expression to me left of an equal 
sign in an arithmetic expression. 


37 


Arithmetic statement function preceded 
by the first executable statement. 


38 


Invalid expression in an IF or CALL state- 
ment, or invalid expression to the right of 
an equal sign in an arithmetic statement. 


39 


Unbaljnced parenthesis. 


40 


Invalid argument used in calling an 
Arithmetic statement function or Function 
subprogram. 


41 


Syntax error in disk I/O statement. 


42 


Disk I/O list omitted. 


43 


Disk I/O list contains both simple variables 
and array names. 


44 


COMMON exceeds core storage size. (May 
occur when large array is defined.) 




Error No. 


Condition 


57 


RETURN statement appeared in program 
other than a subprogram (statement ignored). 


58 


RETURN statement not contained in a Sub- 
routine or Function subprogram. 


59 


Statement number not defined. See note at 
end of Table. 


60 


Syntax error in DEFINE DISK statement, 
invalid use of, or DEFINE DISK statement 
missing. 



NOTE: Errors 55 and 59 are not detected if Type I errors occur during compilation. 
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where xxxx is the relative number of the statements 
within the program, not counting storage allocation 
statements, comments, or blank cards. The number 
does not correlate with an actual statement number. 

If an improper do nesting or mixed mode message 
occurs, compilation is continued, but only to check 
for other errors. The Fortran Control records, pstsn, 
pobjp, and ldisk will be disregarded, the object pro- 
gram will not be executed and control will be return- 
ed to the Supervisor program. 

Compilation stops immediately after the symbol 
table full or do table full message is typed and 
control is returned to the Supervisor program. The 
approximate allowable number of symbols differs 
with the core storage size of the source machine. 
For a 1620 with 20,000 positions, approximately 
200 symbols are allowed. For a 1620 with 40,000 or 
60,000 positions, the number of symbols allowed is 
approximately 1200 or 2200, respectively. 

End of Compilation 

When all of the intermediate output is processed, the 
following messages are printed: 

nnnnn CORES USED 
aaaaa NEXT COMMON 
END OF COMPILATION 

where nnnnn is the number of core positions the 
object program requires (object program and data 
areas except common), and aaaaa is the next avail- 
able core storage position of the common area, ( aaaaa 
-f- 1 is the last used position of common ) . 

If Fortran Control records specifying output are 
included with the source program, the outputting 
takes place following the end of compilation 
message. 

Identification Data 

When a program (or subprogram) is compiled, it is 
headed with an identification record that will be used 
when the program is to be loaded into core storage 
for execution. 

Both main program and subprogram header identi- 
fication records are shown and described as below: 

Mainline or Link 

_ _ _ _ Word Rec _ . First Next Subroutine 

[00100 j 2 1 67 1 987898 1 Nil | N2 1 Length | Length | Length | ff | kk | Core | Common t Indicators | 

5126 252 3 5225 5 30 
Digits 



Subprogram 

_ _ Subprogram _ _ Entry Address Next Subroutine 

|00100| 2 |67| 987898 [Nome | Length |ff |kk | Less Six | Common | Indicators | 
5126 12 5225 5 30 



00100 

2 

67 

987898 

Subprogram Name 



Nl 



N2 



Word Length 



Rec. Length 



Length 
ff and kk 



Entry Address Less 
Six 

First Core 



The address of the origin of 
the program less 100. 

An indicator to the relocating 
loader that a constant to be 
relocated is forthcoming. 

The number of digits in the 
forthcoming constant. 

An arbitrarily chosen constant 
to identify this as a header 
record for a Fortran pro- 
gram. 

The name of the program in 
double digit representation 
( left-justified ) . Used only 
in subprograms and For- 
tran function headers. 

The number of words per disk 
record. (From the define 
disk Fortran statement. ) 
This field is present only for 
mainline programs and 
links. 

The number of logical records 
in the disk, as used by the 
Fortran program. ( From 
the define disk Fortran 
statement.) This field is 
only present in mainline 
program and link header 
records. 

The number of digits in the 
words used to determine a 
logical record. This value is 
the larger of the floating 
word and the fixed word 
length. 

The number of sectors to be 
used when reading or writ- 
ing logical records. This 
value is limited to the num- 
bers 1 and 2. 

The length of the program 
(This must be an even 
number ) . 

The length of the mantissa 
and the fixed point words 
in this program. 

The first location in the sub- 
program, less six, to enter 
the subprogram. 

The first location in the pro- 
gram to begin execution. 
Present only for mainline 
or link programs. 
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Next common The next location available in 

common. This must be an 
even address (e.g., 19998) 
so that common can cor- 
rectly be written on disk 
during operation of the 
Fortran loader. Subpro- 
grams do not use this value. 
Sub. Indicators A digit position for each li- 
brary subroutine in the 
Fortran system. 
The identification record occupies one whole sector 
when it is on the disk. The format for the balance 
of this sector, if the program is in relocatable format, 
is shown below: 

0000021701234567891234567 

Subprograms Called by FORTRAN 

The names of the subprograms called by a program 
are stored at the end of the program. The address 
within the calling program where the address of the 
subprogram will be placed is also stored along with 
the name of the subprogram. These 18-digit name 
and address records are created for the subprograms 
called and the last record is followed by a record 
mark. Up to 100 subprograms may be used with any 
one Fortran main program or link ( 50 can be loaded 
with the program; 50 can be called on an as-needed 
basis, i.e., local). 

I Name | Address | | 
12 Digits 5 1 

The names and addresses of the subprograms called 
are moved to the Fortran loader work area when the 
subprogram is loaded. This Fortran loader will de- 
termine which of the subroutines called by the sub- 
program have not already been loaded, and will load 
those routines (exception: local subprograms cannot 
call a new subroutine; see object program execu- 
tion). The proper addresses are placed within the 
calling programs to link them with the subroutines 
that they call. 

Trace Feature 

Under program switch control, instructions can be 
compiled into the object program to enable the opera- 
tor to trace the flow of the program when it is execut- 
ed. During execution of the object program, the trace 
output is under control of Program Switch 4 as de- 
scribed under object program execution. 

The trace output contains the value of the left-hand 
side of each executed arithmetic statement and/or, 
the value of the expression calculated in an if state- 
ment. 



Subroutines 

The subroutines for 1620 Fortran ii-d are divided into 
two groups: (1) Library subroutines and (2) Arith- 
metic and Input/Output subroutines. 

library subroutines 

Sixteen relocatable subroutines are included in 1620 
Fortran ii-d (see Table 11). 

The Library subroutines are loaded only when they 
are used in a program, "link" program, or subprogram, 
i.e., they are loaded before any execution of the call- 
ing program takes place but they are loaded only if 
required by the calling program. During compilation 
of a program, a 30-digit field of zeros is created (in 
the header record). When a subroutine is called for 
by a source statement or "required for use," a 1 is 
inserted in the proper location of the subroutine indi- 
cator field. The position in the field corresponds direct- 
ly to the Subroutine number given in Table 11. 

"Required for use" means that even though the 
user has not directly called a specific subroutine it 
may be required by the system. For example, the 
logf and expf subroutines are used to compute the 
values of floating-point roots and powers in arithmetic 
statements. They are loaded, if required, before execu- 
tion of the program that requires them. Likewise, the 
Subscripting routines (library numbers 3, 4, 5), and 
the disk routines (library numbers 6-11), though never 
directly called, will be loaded if required. Sections 
of library routines 6-11 are loaded to disk storage 
Clyinder 1 ( relative to the start of the disk work area ) 
and the specific section required is loaded from the 
disk to core storage only when it is needed. All read- 
ing and writing of even arrays (/ and k even) will 
be done without loading additional instructions from 
disk storage. 

It is possible for the user to add 14 subroutines 
to the Fortran library. The subroutines can be written 
using Symbolic Programming System (sps) language. 
Procedures for adding subroutines and information 
for writing subroutines in sps is given under adding 

SUBROUTINES TO THE FORTRAN LIBRARY. 

Two forms of the supplied library subroutines are 
included with the Fortran ii-d System. One form 
is for users that have the floating-point feature install- 
ed on their machine; the other form operates without 
the floating-point feature. Only one form is loaded 
when the Monitor I System is initially loaded by the 
user. 

The Fortran statements find, record, and fetch 
are processed by relocatable subroutines numbered 
6 through 11. These routines are loaded into core 
storage only if the disk Fortran statements are utiliz- 
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Table 11. FORTRAN II -D Library Subroutines 



TYPE OF FUNCTION 


SYMBOLIC 
NAME 


SUB- 
ROUTINE 
NUMBER 


DIM 
ENTRY 
NUMBER 


TRANSFER 
ADDRESS 


STORAGE REQUIREMENTS 


WITH 
FLOATING 

POINT 
FEATURE 


WITHOUT 

CI /*"*\ ATlk i^** 

FLOATING 
POINT 
FEATURE 


Logarithm (natural) 


LOGF 


1 


10 


02248 




802 


850 


Exponential 


EXPF 


2 


11 


02253 




1062 


1158 


Subscripting (1 dimension) 


ENTSCI 


3 


12 


02258 




\ 




Subscripting (2 dimensions) 


ENTSC2 


4 


13 


02263 




► 510 


510 


Subscripting (3 dimensions) 


ENTSC3 


5 


14 


02268 


J 


1 




FIND 


ENTFID 


6 


15 


02273 








RECORD 


ENTREC 


7 


16 


02278 








FETCH 


ENTFET 


8 


17 


02283 




H300 


1342 


Routine to load or unload disk buffer 


ENTSWD 


9 


18 


02288 








Routine to write or read arrays 


ENTARR 


10 


19 


02293 








Koutine to complete rti<~n or Kcv-UKD 


CkJT^DT 

tN ILrl 


1 1 


on 
A) 


02298 








Cosine 


COSF 


12 


21 


02303 




















► 904 


976 


Sine 


SINF 


13 


22 


02308 








Arctangent 


ATANF 


14 


23 


02313 




1234 


1258 


Square Root 


SQRTF 


15 


24 


02318 




526 


538 


Absolute Value 


ABSF 


16 


25 


02323 




58 


82 



ed in the object program. Different routines may be 
used to record (or fetch) an array. The routines 
that will write out or read in an entire array with 
one disk instruction will be used if both the 
fixed word length and the floating word length are 
even (not necessarily equal). If either of these varia- 
bles was defined as odd in length, the array will be 
split into records that are the same length as those 
used when reading or writing lists of variables. The 
maximum speed in reading and writing of data from 
and to the disk is attained with even values for f 
and k. 

The find statement is used to position the access 
arm in the disk storage drive in advance of a fetch or 
record. It may be necessary for the Fortran system 
to change the position of the arm after a find opera- 
tion has been initiated. If this is the case, the same 
location for the arm as specified in the find statement 
will be sought again after the Fortran system opera- 
tion is complete. This automatic repositioning to the 
find cylinder will occur after every arm disturbance 
until the next fetch or record statement has been 
executed. 



The Fortran statements that use subscripting no- 
tation will determine which of three different sub- 
scripting subroutines are entered by the program. 
Subroutine numbers 3, 4 and 5 are used to identify 
subscripting routines that handle one, two and three 
dimensions, respectively (this is actually one subrou- 
tine with three entry points). 

arithmetic and input/output routines 

The arithmetic and input/output subroutines, includ- 
ing constants and working areas, are basic routines 
needed for proper execution of the object program. 
They are loaded without being specifically called for 
by the object program. Besides performing the funda- 
mental tasks of adding, subtracting, etc., these rou- 
tines also perform some diagnostic testing on the data 
being manipulated. 

Two sets of these arithmetic and input/output rou- 
tines are available. One set is for those users without 
the floating-point feature, and the second set for those 
users with the floating-point feature. The floating- 
point set operation is faster and in some cases, re- 
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quires less core storage for the routines used to per- 
form the arithmetic operations. 

Each set of the arithmetic and input/output rou- 
tines is supplied in two forms. One form of each set 
consists of all the arithmetic and I/O routines in core 
at one time. The second form of each set is section- 
alized to form groups of arithmetic and I/O routines. 
These groups each contain several routines and are 
loaded to core storage only when required. The sels 
that are divided into groups allow the user's programs 
to be loaded into core storage starting at 07500. The 
all-in-core sets allow the user's programs to be loaded 
starting at 14000. 

The routines to be read from disk when required 
will be placed in the first cylinder of the disk work 
area. (This is cylinder zero unless the user defines 
different parameters.) The routines are placed in this 
cylinder just before execution of the Fortran pro- 
gram. The first cylinder of the work area has been 
chosen because the access time when seeking this 
cylinder will be very short, and, consequently, the 
Fortran programs should operate at an optimum 
speed. When the in-core form of subroutines is select- 
ed, the routines are not stored in the first work stor- 
age cylinder. Only one set (one in-core storage set 
and one out-of-core storage set) will be in disk stor- 
age. The user selects the form according to his ma- 
chine features. The user further selects either the in- 
core form or the out-of-core form as being standard. 
A different form may be selected from the one indi- 
cated as standard when the Monitor System is deliv- 
ered (see dfine control record). The selection can 
be accomplished at load time by placing the proper 
digit in the 28th column of the xeqs Control state- 
ment. If no digit is placed in this column, the system 
standard will be used. The set that contains routines 
to be read into core storage as required is the one 
that will be utilized if no new standard has been 
specified. 

The digits that may be placed in this column are 
listed below: 

1— No floating-point feature — read in when re- 
quired 

2— No floating-point feature — in core 

3— Floating-point feature — read in when required 

4— Floating-point feature — in core 

Any digit higher than 4 will result in the error 
message below: 

ERROR L8 

After this message, the loading routine will set the 
digit to the system standard ( specified in column 83 of 
the disk sector communications area) and continue. 



If a 3 or 4 is used for a set number and only set 1 and 2 
are on the disk, 1 or 2 will be used, respectively. Sim- 
ilarly, if 1 or 2 is used and only 3 and 4 are on the disk, 
3 will be used in place of 1, and 4 will be used in place 
of 2. No message will be typed in this event. 

The arithmetic and input/output subroutines avail- 
able with 1620 Fortran ii-d are shown in Table 12. By 
referring to the symbolic names for the subroutines in 
the listing, their equivalent absolute addresses can be 
found. 

Symbol Table Listing 

If Program Switch 1 is in the on position during the 
Fortran compilation, the storage addresses of the 
symbol table will be listed in the following order and 
form. 

1. Floating point constants Fixed point constants 

XXXXX MMMMMMMMCC XXXXX FFFFF 

where XXXXX is the low-order address of the 
constant. 

Table 12. FORTRAN Arithmetic and Input/Output 
Subroutines 



Subroutine 


Symbolic Name 


Operation 


Floating Point Arithmetic 






Add 

Subtract 

Reverse Subtract 

Multiply 

Divide 

Reverse Divide 
Set FAC to zero 


FAD 

FSB 

FSBR 

FMP 

FDV 

FDVR 

ZERFAC 


FAC + A -*■ FAC 
FAC - A FAC 
A - FAC -*- FAC 
FAC x A — •» FAC 
FAC / A -*- FAC 
A / FAC FAC 
FAC 


Fixed Point Arithmetic 






Add 

Subtract 
Reverse Subtract 
Multiply 
Divide 

Reverse Divide 


FXA 

FXS 

FXSR 

FXM 

FXD 

FXDR 


FAC + I — FAC 
FAC - I — *- FAC 
I - FAC — *- FAC 
FAC x I — *- FAC 
FAC / I— *- FAC 
I /FAC — »-FAC 


Common Subroutines 






Load FAC 
Store FAC 

Reverse Sign of FAC 

Fix a Floating Point Number 

Float a Fixed Point Number 


TOFAC 
FMFAC 
RSGN 
FIX 

FLOAT 


A FAC or I -*- FAC 
FAC -*-A or FAC-*- 1 
- FAC -»-FAC 
FIX (FAC)-*- FAC 
FLOAT (FAC) -*-FAC 


Exponentiation 






Fixed Point J ** I 
Floating Point A ** (±1) 
Floating Point A ** <±B) 


FIXI 
FAXI 
FAXB 


FAC ** I -*-FAC 
FAC**(±I) -*-FAC 
FAC**(±B)-*-FAC 


Input/Output 






Read Card 
Read Tape 
Reod Typewriter 
Write Card 
Write Tope 
Write Typewriter 


RACD 

RAPT 

RATY 

WACD 

WAPT 

WATY 





FAC - simulated accumulator 

A & B - floating point variables 

I & J - fixed point variables 

— *" - store in 



FORTRAN II-D 127 



MMMMMMMMCC is a floating-point con- 
stant. 

FFFFF is a fixed-point constant. 

2. Simple variable Dimensioned variables 

XXXXX NAME XXXXX NAME YYYYY 

where XXXXX for simple variables is the address 
at object time where the value for name will be 
stored. 

XXXXX for dimensioned variable is the ad- 
dress at object time of the first element in the 
array, name. 

YYYYY is the address of the last element in 
the array, name. 

If name* is typed, this indicates a dummy 
parameter within an arithmetic statement func- 
tion. 

3. Called subprograms 

XXXXX NAME 

where XXXXX is the location at which the start- 
ing address of the subprogram will be stored. 

4. Statement numbers 

SSSS XXXXX 

where XXXXX is the address of the first instruc- 
tion generated for the statement numbered SSSS. 
If the statement number pertains to a format 
statement, the location XXXXX will be the actual ad- 
dress of the format specification. 

Symbol Table Listing for Subprograms 

When compiling a subprogram, the dummy argu- 
ments are listed after statement numbers, as follows: 

XXXXX NAME 

where XXXXX is the location at which the actual ad- 
dress of the variable in the mainline program, cor- 
responding to the argument, name, will be stored 
upon entering the subprogram. This same form is also 
used for simple and dimensioned variables. 

The addresses listed are not the actual addresses at 
object time. Since programs are relocated upon load- 
ing, the listed addresses have to be adjusted relative 
to the starting location of the program or subprogram. 

Object Program Execution 

A 1620 Fortran ii-d program may consist of three 
parts: a main program, a group of subprograms, and 
the library subroutines utilized by the main program 
and subprograms. The main program exercises control 
over the entire operation being performed. In addition 
to the normal execution of instructions, it has the 
ability to call subprograms and subroutines. 



Subprograms, defined with a function or subrou- 
tine subprogram statement at compilation time, can 
be placed into two groups (which have nothing to 
do with the way they were defined at compilation). 
For execution, subprograms are either: 

1. Loaded into core along with the main program 
(or link program) that calls them, or, 

2. They may be left on disk storage and brought 
into core storage only when called. 

The user* must determine which subprograms are 
to be loaded into core storage prior to execution and 
which are to be loaded when called for immediate 
execution. The subprograms that are to be loaded 
when called are defined by using a local Control 
record. The subprograms that are named in the local 
record will be loaded to the work area of disk storage 
prior to execution of the main program or link pro- 
gram that calls them. 

A subprogram requires no changes in order to be a 
local subprogram. A subprogram written for use in 
core with the main program can be used instead as a 
local subprogram merely by naming it in a local 
control record. However, a local subprogram cannot 
call an "in core" subprogram that is not called from 
either (1) the main program, or, (2) another "in core" 
subprogram, and a local subprogram can never call 
another local subprogram. 

The following illustration shows the layout of core 
storage during execution of a typical Fortran 
program. 



Multiply and Add Tables 

Supervisor Routines 
02218 

Arithmetic and I/O Routines 

07500 or 14000 — 

Mainline Program 



In-Core Subprograms 



Library Subroutines 



Routine Linkage Area and Loader Routine 



LOCAL Subprogram Read-in Area 



COMMON 
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Converting FORTRAN Object Programs to Core Image 

Fortran object programs which are stored on disk are 
in System Output format. When called for execution, 
these programs must first be converted to core image 
format before they can be executed. In cases where the 
main program and/or the in-core subprograms are very 
long, the conversion time might become excessive. To 
eliminate this conversion each time a program is exe- 
cuted, the user can convert main programs and in-core 
•subprograms to core image format and permanently 
store them on disk in that form. 

The means of conversion is the Replace Programs 
routine, a disk utility function described earlier in this 
manual. A procedure for converting to core image for- 
mat follows: 

1. Clear core storage to zeros. 

2. Load the Supervisor program to core storage. 

3. Read in the following sequence of cards: 

4^DUP 

*DREPL NAME DIM1 DIM2 CORE D M F 
Col 7 13 17 39 49 50 60 



Columns 1-6 Code word * DREPL. 

7-12 Alpha name of program . 
13-16 DIM entry number of new pro- 
gram. 

17-20 DIM entry number of program to 
be replaced. This will be the same 
as the number punched in Column 
13-16. 

39-43 Fixed core storage address where 
program will be loaded when 
called for execution. 

49 Input unit (D for disk). 

50 M denotes conversion from System 
Output format to core image for- 
mat. 



60 



Any non-blank character. 



Note: This procedure must be followed in its entirety 
each time the drepl function is used with Fortran 
programs. 
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LOCAL Control Record 

Subprograms that are to be loaded when needed are 
defined at load time by a local Control record. The 
format of the local Control record is as follows: 
Columns 1-6 * local 

7-80 Main program name, comma, 
Subprogram name, comma, 
Subprogram name, comma, 
etc. 

The main program may be identified in either of 
two ways. If it has a name in the system Equivalence 
table, that name may be used. If no name is in the 
Equivalence table to identify the main program, the 
name may be omitted. In this event, the comma nor- 
mally following the program name must be retained. 
Blanks may not be included between names and 
commas. The commas must be placed between sub- 
program names. When more than one card or tape 
record is needed to identify all local subprograms, 
a comma must be placed following the last name on 
each record that is followed by another local record. 
The name of the main program is omitted from all 
continued local records, but they must contain the 
asterisk and code word local. 

EXAMPLES 

* LOCAL MLNAME, SUB1, SUB2, SUB3, 

* LOCAL SUB4 

* LOCAL LNKNAM, SUB2, SUB6 

* LOCAL LNK2, SUB2, SUB6, SUB7 



Up to 100 subprograms (50 maximum, in core; 50 
maximum, local) may be called by a main program 
or link. 

local records to be entered into the system must 
follow the Fortran source program when compiling 
and executing a program (see Figure 16). The number 
of local records to be read must be placed in col- 
umns 9-10 of the forx record or columns 29-30 of the 
xeqs Control record. When typing the local record, 
no more than 79 columns may be used. When the 
local record is in paper tape, only 79 positions may 
be used and the positions used must be followed by 
a blank. 

Library subroutines to be loaded at load time are 
selected by interrogation of the subroutine indicators 
in the header record that precedes each program, link, 
and subprogram. Each indicator, one for each sub- 
routine, must be a numerical 1 if the corresponding 
subroutine is to be loaded to core storage at load time. 
All subroutines are loaded if called in the main pro- 
gram or if called in subprograms that are loaded to 
core storage. A LOCAL subprogram must not call for 
a subroutine that was not called for by the main pro- 
gram or a subprogram loaded to core storage (see 
Table 13). 

DATA Control Record 

The purpose of the data control record is to indicate 
to the Fortran loader that all segments of the pro- 
gram have been loaded prior to beginning execution. 




Figure 16. Positioning of LOCAL and DATA Control Records in FORTRAN Stacked Input 
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The rules for inclusion of the data control record 
are: 

1. If the mainline or link program, or any of its 
associated subprograms are loaded from the 
paper tape reader or card reader, a data control 
record must be included in the stacked input 
whether or not any data is to be read by the 
program. 

2. If the mainline or link program, and its associat- 



ERROR 
CODE 


MEANING, REASON 


RESULT 


LI 


Invalid LOCAL control record 
Word LOCAL misspelled, mis- 
placed, or no asterisk 


Typeout JOB ABAN- 
DONED; branch to 
MONCAL* 


L2 


Invalid name in LOCAL record 
Not formed according to 
FORTRAN rules 


Typeout JOB ABAN- 
DONED; branch to 
MONCAL* 


L3 


Multiple name in LOCAL record 
Same subprogram name appears 
more than once for some pro- 
gram or link, or program or link 
name appears more than once 


Typeout JOB ABAN- 
DONED; branch to 
MONCAL* 


L4 


LOCAL subprogram table full 
Greater than 50 LOCAL sub- 
programs per link not allowed 

Mainline table (link names) full 
More than 50 links calling 
LOCALS not allowed 


Typeout JOB ABAN- 
DONED; branch to 
MONCAL* 


L5 


Invalid header record 

Does not conform to standard 
FORTRAN header record 


Branch to MONCAL* 


L6 


Unequal F or K 

Subprogram F and/or K does 
not compare with main program 
F or K 


Subprogram not 
loaded 


L7 


New subroutine called from LOC- 
AL subprogram 

LOCAL subprogram cannot call 

new subroutine 


Subprogram loaded; 
subroutine not loaded 


L8 


Invalid arithmetic and input/output 
subroutine set 

Not defined as 1, 2, 3, or 4 


Set defined as system 
standard is loaded, 
depending on group 
loaded 


L9 


In-core subprogram table full 
Greater than 50 subprograms 
not allowed 


Ignore above 50th 
subprogram 


L10 


New subprogram called from LOC- 
AL subprogram 

LOCAL subprogram cannot call 

new subprogram 


LOCAL subprogram 
loaded; new sub- 
program not loaded 


L11 


LOCAL subprogram disk storage 
area overlaps reserved disk work 
area 


LOCAL subprogram 
is not loaded 



*MONCAL is the symbolic name for Monitor Control Record 
Analyzer routine. 

Table 13. FORTRAN Loader Errors 



ed subprograms are all loaded from disk a data 
control record must not be included in the stack- 
ed input. 

The format for the data Control record is as 
follows: 

Card 

Columns 1-5 "DATA 

6-80 must be blank 

Paper Tape 

j-» 75 zeros » I 

*DATA00000000^^ 

When the data record is recognized by the loading 
routine, a check is made to determine which subpro- 
grams have not yet been loaded. If there are any 
such subprograms, they are listed on the console type- 
writer, and the machine halts. The operator must then 
see that these subprograms are made available for the 
loading routine to load before depressing the Start 
key. If all subprograms have been loaded, any remain- 
ing data in the input unit will be skipped until the 
data record is read. 

Console Program Switch Settings 

Switch 1. When switch 1 is on, a list of the pro- 
grams being loaded is typed on the console type- 
writer. The format of the list is: 

XXXXXX NNNNN LLLLL LOADED 

where xxxxx is the name of the program or subpro- 
gram or the number of the subroutine, nnnnn is the 
beginning core storage address, and lllll is the 
length of the program. 

Switch 4. When switch 4 is on, and trace instruc- 
tions have been compiled into the object program, 
the trace output is listed on the console typewriter. 
The trace output contains the value of the left-hand 
side of each executed arithmetic statement and/or-, the 
value of the expression in an if statement. 

If the typewriter input is called for by the object 
program the operator must: 

1. Type in the required data. 

2. Turn Console Program Switch 4 to the off posi- 
tion. 

3. Depress the Release key. 

4. Depress the Single Instruction key 7 times. 
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5. Turn Console Program Switch 4 to the on posi- 
tion. 

6. Depress the Start key. 

If the operator makes a mistake when typing the input 
data it is necessary only to depress the R-S key and 
retype the required data. 



Operating Procedure 

To execute a previously compiled Fortran program, 
the following items must be placed in the input unit. 

1. job Control record. 

2. xeqs Control record. 

3. local Control records (if required). 

4. Main program (if not previously loaded to disk 
storage ) . 

5. Subprograms (if required and not previously 
loaded to disk storage). 

6. data Control record. Note: This must be sup- 
plied even if data has been loaded to disk stor- 
age. 

7. Input data ( if not previously loaded to disk stor- 
age). 

8. Job End Control record. 

When called for execution, the main program is 
converted from relocatable format and loaded into 
core storage (see loader routine in Supervisor sec- 
tion of this manual for a description of operation and 
errors). Following the loading of the main program 
the "in-core" subprograms are loaded. If any subpro- 
grams are not available the message 

LOAD SUBNAM 

is typed, where subnam is the name of the subpro- 
gram that must be loaded in the input unit. 

When all "in-core" subprograms are loaded, the 
library subroutines needed by the main program 
and "in-core" subprograms are loaded into core stor- 
age. Following the loading of the subroutines, if any 
subprograms have been defined as local subpro- 
grams, an "object-time read-in routine" is loaded and 
following it a linkage area is reserved for each local 
subprogram. 

Then, the first local subprogram is loaded into core 
storage. The address to which this subprogram is 
loaded will be the input address for all local sub- 
programs. The first local subprogram is then moved 
to the top end of the work area of disk storage and 
the next local subprogram is loaded to core storage. 
local subprograms may be loaded to the system by 



way of the input unit, however they must be stacked 
following any 'in-core" subprograms to be loaded. 



OVERLAP Errors 

During the loading of the main program, subpro- 
grams, subroutines, or the read-in routine or the pro- 
gram linkage areas, the available core storage area 
may be exceeded. 

If a main program or link program would exceed 
the available area the following message is typed 
and control is transferred to the Supervisor program 
(see monitor control record analyzer routine). 

NAME XXXXX OVERLAP 
JOB ABANDONED 

name is the name of the program or link program, 
xxxxx is the number of core storage positions re- 
quired by that program. If the program has no as- 
signed name, main is printed for name. 

If a subprogram would exceed the available area 
the name xxxxx overlap message is typed and the 
named program is not loaded. Subprograms following 
the "overlap subprogram" are loaded if possible. 

If a subroutine would overlap the available core 
st o r ag e area the message 

NN XXXXX OVERLAP 

is typed, where nn is the library subroutine number 
and xxxxx is the length of the subroutine. The sub- 
routine is not loaded. 

If the local subprogram read-in routine or program 
linkage areas exceed the available core storage areas, 
the message 

FLIPER XXXXX OVERLAP 

is typed, fliper is the name assigned to represent the 
read-in routine and xxxxx is the length of the routine 
and linkage area required. The read-in routine and 
the linkage area are not loaded. 

After all possible programs are loaded, and there 
is any error — overlap or others — the message 

EXECUTION INHIBITED 

is typed and a branch to moncal is executed. 
(moncal is the symbolic name for the entry point to 
the Monitor Control Record Analyzer routine.) 

During loading of a Fortran program, the errors 
listed in Table 13 may appear. 
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Subroutine Error Checks 

A number of error checks have been built into the 
library subroutines. The basic philosophy in the dis- 
position of an error is to type an error message, set 
the result of the operation to the most reasonable 
value under the circumstances, and continue the 
program (note error Dl exception, described below). 
Subroutine error codes, the nature of the error, and 
the value of the result in fac (symbolic name of the 
accumulator in which arithmetic operations are per- 
formed) are listed in Table 14. 



Table 14. FORTRAN Subroutine Error Codes 



fcKKiJK L.<JUt 


CKKUK 


RESULT IN FAC 


Dl 


Disk I/O used without a DEFINE 
DISK statement. 






D2 


Logical record specified exceeds 
N2. 






D3 


No group mark found at end of 
an array that was read from disk. 






El 


Overflow in FAD or FSB 




999 


E2 


Underflow in FAD or FSB 


00 


,099 


C 1 

CO 


vJvertlow in rMr 


99, , , 


999 


E4 


Underflow in rMr 


00 


099 


E5 


Overflow in FDV or FDVR 


99 


999 


E6 


Underflow in FDV or FDVR 


00 


099 


E7 


Zero division in FDV or FDVR 


99 


999 


E8 


Zero division in FXD or FXDR 


999, , , 




E9 


Overflow in FIX 


99 




Fl 


Loss of all significance in FSIN 
or FCOS 


5oo. 


099 


F2 


Zero argument in FLN 


99 


999 


F3 


Negative argument in FLN 


ln/x/ 




F4 


Overflow in FEXP 


99 


999 


F5 


Underflow in FEXP 


00 


099 


F6 


Negative argument in FAXB 
Negative argument in FSQR 


/A/ B 
SQR/x/ 




F7 


Input data in incorrect form or 
outside the allowable range 






F8 


Output data outside the allow- 
able range 






F9 


Input or output record longer 
than 80 or 87 characters (which- 
ever is applicable to the I/O 
medium being used) 






Gl 


Zero to minus power in FIXI 


999 




G2 


Fixed-point number to negative 
power in FIXI 


5oo. . , , 




G3 


Overflow in FIXI 


999 




G4 


Floating-point zero to negative 
power in FAXI 


99 


999 


G5 


Overflow in FAXI 


99 


999 


G6 


Underflow in FAXI 


5o 


099 


G7 


Zero to negative power in FAXB 


99 


999 



The error printout is in the form 
ER XX 

where xtf is the error code in the table. 

If error Dl occurs, the machine halts, the typewrit- 
er carriage returns, and the operator must enter the 
define disk statement parameters by means of the 
typewriter in the form of 

NNXXXXX 

where nn corresponds to N u and xxxxx corresponds 
to N 2 as described for the define disk statement. Error 
Dl will be indicated until the values of Ni and N 2 
are within the correct range. 

The Fortran loader further checks the value of N 2 
(number of data records as specified in the define 
disk statement) to see if the N 2 disk work area would 
be overlaid by operation of the Fortran loader. The 
Fortran loader uses the disk working area (starting 
from the high-order positions) for tables, common 
save area, and local subprograms. Also, the first 
(low-order) 218 sectors of the disk work area are 
reserved to store the short form groups of the arith- 
metic and input/output subroutines. If N 2 times 
Record length plus 218 is greater than the lowest 
disk address used by the Fortran loader, N 2 will be 
redefined as 

X-218 
Record Length 

where X is the lowest disk address used by the For- 
tran loader. The user is notified of this action by the 
following message: 

MAX N2 ALLOWABLE XXXXX 

where xxxxx is the maximum allowable value for N 2 
Loading and execution of the programs continues. 

If Error D2 occurs, the specified record will not 
be written (or read), and the index value (I) may 
be incorrect. 

If Error F7 occurs, the field which is incorrect is 
replaced by zeros, and processing continues. 

The exponent portion of an E-type input data field 
must be right-justified in that field and may contain 
only one sign. Deviations from this rule are not check- 
ed. For exponents greater than 99 (absolute value), 
the value is reduced modulo 100. 

If Error F8 occurs, the incorrect field is set to 
blanks in the output record, and an additional record 
is typed. This record contains the incorrect field in 
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the form 

E (f -j- 6). f for floating-point numbers, and 
I (k + 1) for fixed-point numbers. 

This additional record is also produced on the output 
unit (card punch, tape punch, or typewriter) called 
for by the source statement. 

If Error F9 occurs, the incorrect field is ignored 
and processing continues. However, a remote possi- 
bility exists that part of the subroutines and the object 
program may have been destroyed by the abnormal 
record. In this case, the program may inexplicably 
halt at some later point in its execution. 



Object Program Subroutine Linkage 

The linkage generated by the Fortran ii-d compiler 
is in the form 

BTM SUBR, A 

where subr is the name of the entry point for the sub- 
routine and A is the address of the operand. For the 
relocatable library subroutines, an indirect address is 
used in the linkage. The actual address of the library 
subroutine entrance is stored at locations 02244-02248, 
02249-02253, etc. The Fortran object program linkage 
for entrance to the first library subroutine will ap- 
pear as, 

BTM-02248, A 



Adding Subroutines to the FORTRAN Library 

The user may write library subroutines in sps lan- 
guage and have them placed in the Fortran library. 
The subroutine must be assembled using the sps ii-d 
program, and may be loaded to disk storage at as- 
sembly time or at a later time using the Disk Utility 
program. 

When the subroutine is loaded, a special dim entry 
number which is reserved for Fortran library sub- 
routines, must be used. This number is specified using 
the sps control statement, id number. Only 30 dim 
entries are reserved, and, of these, the first 16 are 
in use when the system is delivered. The first 11 
must not be replaced — they are required for correct 
operation of the Fortran system — but the user is 
free to replace any of the others if he desires. 

If a subroutine has multiple entries, the first dim 
entry will define the subroutine, but a dim entry is 
required for each entry point, and no subroutine may 
have more than 9 entry points. 



All entry points for a subroutine must be indicated 
in the following manner at the beginning of the 
source statements. 

SUB DSA ENTRY1, ENTRY2, . . , ENTRY9 
DORG SUB-4 

ENTRY1 

where entryI is the name of the first entry point, and 
entry2 is the name of the second, etc. 

The user must provide a 5-position area immediate- 
preceding each entry point. This space will be used 
to contain the address of the parameter for the sub- 
routine when the subroutine is entered. 

The symbolic name for each entry point must be 
specified in a dsa statement at the beginning of the sps 
source program when it is assembled (even if only 
one entry point is desired). Also the number of entry 
points to the subroutine must be defined in a special 
dend statement. The operand of the dend statement 
must specify the number of entries to the subroutine. 



Working Areas 

In writing the subroutine, the programmer may first 
move the argument into one of the working areas 
such as fac, beta, or save. In arithmetic subroutines, 
the exponent of a floating point result is usually stored 
in save before being moved to fac. A careful study 
of the arithmetic subroutines may reveal that the relo- 
catable subroutine to be added can share the normali- 
zation, sign determination, overflow, underflow, and 
error typeout sections. The value calculated by the 
subroutine must be left in fac. Even if no value is 
calculated, it is advisable to place a constant in fac. 

When programming a subroutine with variable 
length floating-point numbers, it may be necessary 
to use certain addresses and constants available in 
the arithmetic and input/output subroutines. A refer- 
ence to the listings of these subroutines will yield the 
information on these addresses and constants. As the 
mode of operation (fixed or floating point) is deter- 
mined by the argument of the subroutine, the For- 
tran ii-d Processor does not distinguish fixed-point 
from floating-point subroutines. It is up to the user 
to have a thorough knowledge of the added subrou- 
tines and to use them correctly. 

Loading the Library Subroutine 

The Disk Utility Program can be utilized to add a 
subroutine to the Fortran library or it can be added 
at assembly time. 
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An example of the control records required for add- 
ing a subroutine directly to the Fortran library at as- 
sembly time follows: 



4=4= SPS 

• LIBR 

• NAME HCOS 

• ASSEMBLE RELOCATABLE 

• STORE RELOADABLE 

• ID NUMBER 0026 



Monitor and 
SPS control 
records 



SUB 



HCOS 



DSA HCOS, HSIN 
DORG SUB-4 



OP 



HSIN OP 



The 
User- 
written 
library 
function 
SPS 

instructions 



DEND 2 



The Disk Utility Program can be utilized to load the 
subroutine to the library in which case the name, 
store reloadable and id number statements can be 
omitted, but an output card or output paper tape 
statement would have to be included. 

The dload (or drepl) Control record must contain 
the information as shown in the following example: 

* DLOAD HCOS ^K)26 ^1012M002 
Col. 7 17 39 44 49 50 



Columns 1-6 
7-12 



17-20 
39-43 



44-48 
49 
50 



Code word *dload. 
Alpha name of program to be 
used in Fortran arithmetic state- 
ments. 

dim entry number. 

The length of the subroutine. This 

number must be even. 

The number of entry points. 

Input unit (P for paper tape). 

Core image format. 



Other options, such as read-only protection, are 
available if they are desired (see dload control rec- 
ord in the Disk Utility Program section of this man- 
ual). 

Additional Entries and Synonyms 

A dflib Control record must be entered if the sub- 
routine contains more than one entry point or if one 
entry point is to be called by more than one name. 



The format for the dflib Control record to add the 
second entry for the preceding examples is as follows: 



Columns 1-6 
7-12 
13 

14-15 
16-80 



•DFLIB 
HSINbb 

Not used 
27 

Not used 



where hsin is the user-assigned name, left-justified, of 
the subroutine being added, and 27 is the next con- 
secutive dim entry number, after the dim entry num- 
ber used for the original entry. The dim entry number 
must be between 21 and 39 and must correspond with 
the sequential position of the entry as it is written in 
the operands of the dsa statements in the source pro- 
gram. As delivered, the system already makes use of 
dim entry numbers 10 through 25 for Fortran library 
subroutines. However, the last 5 may be removed, if 
desired. If no subroutines are removed from the 
FORTRAN library set, the available DIM entry num- 
bers for additional library subroutines are 26 through 
39. 

The sequence of input to assemble and load a sub- 
routine is shown in Figure 17. 



FORTRAN Subprogram Written in SPS 

The Fortran user is able to create subprograms using 
sps and have these subprograms available immediately 
for call by Fortran programs. To accomplish this he 
must follow the writing specifications outlined here. 



The Indicator Record 

Each subprogram to be called by a Fortran program 
must contain a header record to identify the routine 
and to provide other essential information. The sps 
instructions necessary to create this record are shown 
below: 



DS 
DC 
DAC 
DVLC 

DSC 
DORG 



,*+101 

6, 987898, 5-S 

6,NAMEbb, 7-S 

22-S, 5, LAST, 2, ff, 2, kk, 5, Entry 

Address-6, 5, 0, 30, 
17, 0,0 
S-100 



where last is the address of a 4= or the first digit of a 
subprogram name in the call list (see calling other 
subroutines). 
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* DFUB 



4 + DUP 



Object Program 
Output from Assembly 



**DUP 

Monitor Control Record 




Used to Define 
Additional Entry 
-J Point Names and 
Synonyms. 



Figure 17. Adding Subroutines for FORTRAN Subroutine Library 



Calling Library Subroutines 

If the subprogram or function is to call Fortran 
library subroutines, the user must write out the dvlc 
operand that contains the 30 zeros in the example. 
Those positions that correspond to specific subroutines 
must contain a one instead of a zero. The correspond- 
ence between the positions in this field and the 
standard library subroutines are presented in Table 
11 so that the user may select any subroutine in the 
library. To effect a transfer to any library subroutine 
from the sps written subprogram, the user must write 
the following instruction; btm-subr, param, where 
param is the address of the parameter required by 
the subroutine and -subr is the address for the sub- 
routine entry shown in Table 11. The subroutine 
entry address must be indirect. 

Calling Other Subroutines 

If the user wishes to call other subprograms from an 
sps written subprogram, he may do so. To do this the 
user must code: 

BTM NAMESP, *+ll 
DSA A,B, . . . , Z 

for each transfer to another subprogram, and must in- 
clude the name of the subprogram called. Each 



named subprogram must have a 5-digit address field 
reserved in the subroutine. The names of the sub- 
programs to be called must be placed, in double digit 
form, at the end of the subprogram along with the 
addresses of the reserved address fields within the 
subprogram. A record mark must follow the last sub- 
program name and address. The length of the pro- 
gram, which is specified using last in the previous 
example, must not include the names and addresses 
that are at the end of the subprogram. These names 
and addresses must follow the last location of the 
subprogram. They can be coded as shown below: 

This coding will cause the 
DAC 6, NAMlbb, two subprograms named 
DVLC , 5, N1LOC NAM1 and NAM2 to be 
DAC 6, NAM2bb, called out and made avail- 
DVLC , 5, N2LOC able when the SPS routine 
DC 2, @ that requires them is load- 

ed. 

where N1LOC is the low-order address of the P field 
of the btm instruction that calls this subprogram. For 
example; 

BTM XXXXX, *+ll 
N1LOC * 
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The sps instructions corresponding to a CALL 
SUBP (A, B, C, . . . N) are: 

BTM SUBP, *+ll 

DSA A, B, C, . . . N 
The entry address, subp, is determined when the 
program is loaded, so it need not be included in the 
btm instruction, i.e., BTM, *+ll. 

Writing FORTRAN Subprograms in SPS 

In addition to the header record described above, 
linkage to obtain the subprogram parameters must 
be included in the subprogram. If no parameters are 
needed, or if the subprogram knows the location of 
the parameters, the user writes: 

DC 5,0 

SUBNAM AM SUBNAM-1,1,10 \ 

( The 
( subprogram 

B SUBNAM-1, , 6 ' 

DC 1, @ 

If one parameter is needed, and this subprogram is 
never nested within any other function or subpro- 
gram, the user writes: 
DC 5, 

SUBNAM AM SUBNAM-1, 5, 10 

TF INSUB, SUBNAM-1, 11 
AM SUBNAM-1, 2 

I The 

( subprogram 
B SUBNAM-1, , 6 ' 
DC 1, @ 

If several parameters are to be moved to the subpro- 
gram, a loop may be utilized to conserve core storage. 
The parameters must be stored in the subprogram in 
consecutive order. An example of the coding to ac- 
complish this for three parameters is shown below: 



INSUB 


DSA 


0, 0,0 






DC 


1, @ 






DC 


5, 




SUB 


TFM 


TF+6, INSUB-4 






AM 


TF+6, 4, 10 






AM 


SUB-1, 5, 10 


(1) 




TF 


CF+11, SUB-1, 11 


(2) 




BNF 


*+36, CF+11 


(3) 


CF 


CF 


CF+11 


(4) 




TF 


CF+11, CF+11, 11 


(5) 


TF 


TF 


INSUB, CF+11 


(6) 



AM TF+6, 1, 10 

BNR SUB+12, TF+6, 11 

AM SUB-1, 2, 10 (7) 

B SUB-1, ,6 (8) 

DC 1, @ 

The instructions that constitute the body of the sub- 
program are placed between number 7 and 8 above. 
Instruction 7 must add "two" if the number of para- 
meters is an odd number, or "one" if this number is 
even. The record mark must be in the first even loca- 
tion following the subprogram. 

The instruction numbered 8 (B SUB— 1, , 6) returns 
control to the calling program. When writing subpro- 
grams in sps the user must place this instruction at 
every point that a return is required. 

Writing FORTRAN FUNCTION Subprograms in SPS 

The user must add one instruction to the set required 
for subroutine subprograms written in sps in order 
to write Fortran function subprograms (subroutines 
normally produced by Fortran statements preceded 
by a function statement). This instruction is btm 
tofac, ans. tofac is the entry point of a Fortran 
system routine that will put the value at the address 
ans into fac, the Fortran accumulator. In this in- 
struction ans is the location where the result of the 
subroutine calculation is stored. This instruction must 
precede each instruction that returns control to the 
calling program (e.g., the btm instruction must pre- 
cede the number (8) instruction in the preceding 
example). Each time a return is desired, this btm 
instruction must be repeated. The actual address of 
tofac is constant and is available in the Fortran ii-d 
listing. 



Disk Storage Location of the FORTRAN 
Compiler 

The Fortran compiler and operating system is an 
integrated part of the Monitor I system. It is possible, 
however, to eliminate the programs that constitute the 
Fortran portion of the Monitor I, and still utilize the 
remainder of the system. It is also possible to delete 
specific Fortran library subroutines and to utilize the 
remainder of the Fortran system. The procedure to 
follow in order to delete any program from the disk 
is described in the dup section. The dim entry num- 
bers that may be specified for deletion are shown 
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below. 



Fortran Compiler 

Fortran Subprogram 

Loader 
Fortran Arithmetic 

and I/O 

Fortran Library 
Subroutines 



DIM No. 

136, 137, 153, 
156 

138, 147, 149, 
150, 152, 157 
144, 145, 146 

* 10-39 



Disk 
Location 

Cylinder 86, 
87, 88, 89, 90 

Cylinder 80, 
84 

Cylinder 84, 
85 

Cylinder 81 



If the Fortran system is deleted using the dup rou- 
tines, the portion of the disk which it occupies will 
become available for assignment of other user writ- 
ten programs. 



*When the system is delivered, 10 through 25 are in 
use. The symbolic names of the subroutines that may 
be deleted are cosf, sinf, atan, sqrtf, and absf. The 
other subroutines may be deleted only if the com- 
plete Fortran system is deleted. 
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IBM 1620-1443 Monitor I System 



A printer-oriented Monitor I System is available for 
1620 Systems that are equipped with an ibm 1443 
Printer. This system is an extension of the standard 
Monitor I System described in the preceding pages of 
this publication. Only the differences between the 
standard system and the printer-oriented system are 
described here. Specifications and operating pro- 
cedures pertaining to the standard system are valid for 
the printer-oriented system if no specific mention is 
made of them in this section. 



General Description 

The 1620-1443 Monitor I System requires that an ibm 
printer be included in the 1620 system configuration. 
Of course, any other applicable input/output units, 
special features, etc., may also be attached to the 
system. 

The principle advantage of a printer-oriented system 
is that it provides a convenient and relatively fast 
means of obtaining listings of assembled or compiled 
programs, symbol tables, and any other data that might 
be desired. The component programs of the Monitor I 
System have been modified to make the best possible 
use of the printer. The console typewriter is used only 
for messages which must be acted upon immediately by 
the operator. 

The following paragraphs were written under the as- 
sumption that the reader has a practicable knowledge 
of the ibm 1443 Printer. Those without such knowledge 
should read the publication, ibm 1443 On-Line Printer 
for 1620/1710 Systems (Form A26-5730). 



Supervisor Program 

The I/O routine of the Supervisor Program has been 
modified to handle printer output for both sps and 
Fortran object programs. This was accomplished with- 
out changing entry points, linkages, or core storage re- 
quirements. The language used to gain access to the 
I/O routine is described in the respective sps and For- 
tran portions of this supplement. 

Printer Errors 

If a printer error (indicator code 25) occurs, the 
message 

PRT ERR XXXXX 



is typed out, and control is returned to core address 
xxxxx in the calling program. In addition, the error is 
recorded in a printer error counter which has been 
added to the error counters used in the standard sys- 
tem. Whenever the error indicators or error counters 
are typed out, they will be in the following sequence: 

0607161725363738 

The only change is the addition of the Printer Check 
indicator ( code 25 ) . 

Note: If a halt occurs at address 00467, either with or 
without a prior error message, the program can be re- 
sumed by pressing the Reset and Start keys. 

Programming Considerations 

1. The Printer Busy indicator ( code 35) is not tested 
by the I/O routine; therefore, if the test is desired, 
the user must perform it before executing a call to 
the printer. 

2. Carriage control operations must be handled in 
the user's program. 

Disk Utility Program 
Disk-to-Output Routine 

The Disk-to-Output routine has been modified to use 
the printer for all output that formerly was typed out 
on the console typewriter. To specify the printer as an 
output unit, the user must punch the letter L in col- 
umn 17 of the ddump control card. 

The format of all printed output (in this routine) 
will be 100 characters (1 sector) per line, with the ex- 
ception of the availability list and the equivalance table 
which will retain the format that was used in the 
standard system. 

Define Parameters Routine 

The define parameters routine in this system allows 
the Fortran ii-d to be set for either 120 or 144 
print position usage of the 1443 Printer during com- 
pilation and execution. The user may either put a 
"zero" in column 59 of the * define record for 120 
print position operation or a "one" in that column for 
144 positions. This indicator is set in disk sector posi- 
ton 65 of the Communications Area and is a "zero" 
when the system is delivered. 
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SPS M-D 

The sps ii-d assembly program has been modified to in- 
clude twelve printer-oriented imperative mnemonics, 
two printer declarative mnemonics, and three new sps 
control statements. 

Printer Imperative Mnemonics 

The imperative mnemonics included in the printer- 
oriented Monitor I System are listed in Table 14.1. 
Also shown are the actual op codes generated and the 
P and Q address functions. Table 14.2 shows the Q- 
address modifiers that are generated in the object 
program. 



Some examples of printer statements are shown 
below: 



lobal 

1' 


•1 ..-!} 


Operandi A tomaffci 






DATA,., } PA). NT NUMAI CALLY 












l>AJA f . f . } .PA.I.H.T. Ji.UMA.ICAiL.Y, AHA MPP.R.£.3.S. .SPACING. 












,Zf. r .S.K.IP IMIDIAT.E. T.O. CAAA.I A.6£. ,CMAH.H£.L. Z 










mp 


} S,,.j.3.K.I P AfT.LR. A.R.I. H.T.I M.6. T.O. CA.RJUA.G.E. CHAAM££. .5. 










SAW 


} 3. f .,A0,V£. CA.RAJA.Gt. ,3. .SPA.C£.S. ,.l MHCfi.l A.T.E. 










WAP 


V 3. ? .,H.0.V.£ CAAX.lA.Gt. 3 .5AA.CM.S. A.FTIA. PAIMJIN.G. . . .. 









Table 14.1 Imperative Printer Mnemonics 





OPERATION CODE 


OPERANDS 


OPERATION 


MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Printer Dump 


PRD 


35 


Storage address from 
which leftmost (first) 
numerical character is 
written 


None Required 


Printer Dump and Suppress 
Spacing 


PRDS 


35 


Same as Printer Dump 


None Required 


Print Numerically 


PRN 


38 


Same as Printer Dump 


None Required 


Print Numerically and 
Suppress Spacing 


PRNS 


38 


Same as Fr inter Dump 


None Required 


Print Alphamerically 


PRA 


39 


Storage address from 
which leftmost Alpha- 
meric character is 
written (odd numbered 
address) 


None Required 


Print Alphamerically and 
Suppress Spacing 


PRAS 


39 


Same as Print Alpha- 
merically 


None Required 


Skip Immediate 


SKIP 


34 


Not used 


Control Code 


Skip after Printing 


SKAP 


34 


Not used 


Control Code 


Space Immediate 


SPIM 


34 


Not used 


Control Code 


Space after Printing 


SPAP 


34 


Not used 


Control Code 


Branch on channel 9 


BCH9 


46 


Address branched to if indi- 
cator 33 is on. This indica- 
tor is turned on by the detec 
tion of a hole in channel 9 
of the carriage tape. 


None Required 


Branch on channel 12 


BCOV 


46 


Address branched to if indi- 
cator 34 is on. This indica- 
tor is turned on by the detec 
tion of a hole in channel 12 
of the carriage tape. 


None Required 
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In these examples, the operand data represents the 
core storage address of the data to be printed; the nu- 
merical operands (2, 5, 3, 3) are either channel num- 
bers for skip operations or the number of spaces for 
space operations. Table 14.3 shows the Q operands to 
be placed in the skip and space statements for all 
possible skip and space operations. 

Printer Declarative Statements 

Two printer declarative mnemonics are included in the 
printer-oriented Monitor System. Descriptions of the 
mnemonics follow together with the two-digit code 
that is generated for the I/O constant. Note the two 
forms of each declarative. 

Mnemonic Code Name 

DPRN 14 Define Printer Numerical 

DPRN, , S 22 Define Printer Numerical - 

Suppress Spacing 
DPRA 18 Define Printer Alphameric 

DPRA, , S 26 Define Printer Alphameric 

.— Suppress Spacing 

These declarative operations generate an I/O con- 
stant in the object program which can be used by a 
put I/O macro-instruction to print data under control 
of the I/O routine. When used in the source program, 



Table 14.3 Q Operands and Q Modifiers for Skip and Space 
Operations 





ACTUAL Q 1Q/ G 


l n MODIFIERS 






AFTER PRINTING 


CONTROL CODES 


IMMEDIATE 


(DE LAY) 


Skip to Channel 1 


71 


41 


2 


72 


42 


3 


73 


43 


4 


74 


44 


5 


75 


45 


o 


7A 


AA 


7 


77 


47 


8 


78 


48 


9 


79 


49 


10 


70 


40 


11 


33 


03 


12 


34 


04 


Number of Spaces 1 


51 


21 


(SPIM or SPAP) 

2 


52 


62 


3 


53 


63 



Table 14.2 OP Codes and Q Modifiers Generated for Printer 
Mnemonics 







OP 
CODE 


Q 


MODIFIERS 


MNEMONIC 


OPERATION 


Q 8 


Q 9 


Q 10 


Q ll 


PRD 


Printer Dump 


35 





9 







PRDS 

PRN 
PRNS 


Printer Dump and 
Suppress Spacing 

Print Numerically 

Print Numerically and 
Suppress Spacing 


35 
38 

38 








9 
9 

9 


Not 

used, 

will 

be 

zero 


1 



1 


PRA 


Print Alphamerically 


39 





9 







PRAS 


Print Alphamerically 
and Suppress Spacing 


39 





9 




1 


SKIP 


Skip Immediate 


34 





9 






SKAP 


Skip After Printing 


34 





9 


« 




SPIM 


Space Immediate 


34 





9 






SPAP 


Space After Printing 


34 





9 


* 





•Modifiers which specify the particular skip or space operation 
(see Table 14.3). For a detailed description of these modifiers, 
refer to the publication entitled IBM 1443 On- Line Printer for 
1620/1710 Systems (Form A26-5730). 



they identify the output record area. Three operands 
are required for each statement. The first operand is 
used to specify the address where the I/O constant is 
to be loaded into core storage. This operand may be an 
absolute value or a symbolic name. If a symbolic name 
is used, the symbol must previously have been defined 
as an absolute value. If the operand is omitted, the pro- 
cessor will assign the address to which the constant will 
be loaded in core storage. 

The second operand, which may be symbolic or ac- 
tual, is the address of the output record area. This ad- 
dress will be included in the I/O constant in the object 
program. The third operand may be a letter S or it may 
be omitted. If the letter S is present, the automatic sin- 
gle space after printing will be suppressed whenever 
the associated output record is printed. Remarks are 
permitted following the third operand. 

If a label is included with this statement, the storage 
address assigned to it will be that of the leftmost posi- 
tion of the generated I/O constant. 

The statements which follow show how a dpra de- 
clarative statement is used with a put I/O macro-state- 
ment to print a 110-alphameric character record under 
control of the Supervisor I/O routine. In this example, 
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the first two statements define the output area where 
the record is stored. 



1M 


11 IS 


Operandi I fttmorin 


RE. COR I 


PA.9, 


1.1.0 1f .D£FIU£ ALMAmh.C. .OUTPUT. RECOUP 




MR 


/ ,e. ! } MU.$T .rOL.LOM WITH. AS.C.ORD. MARK 








PfiN.TX. 


PPM 


} ,Rt.C.OAfi. ) . f ,I.D.EMT.IfY. P.R.IMTX..R. JO.U.TP.UT. RI.C.OAD. 










PUT 


pdN.m,.,M.ITE OUTPUT. .R.L.C. AS. S.Pt.C.I f.l MJ>. BY. .P.PRA . 









The declarative statements are usually written pre- 
ceding or following the program; however, the macro- 
statement is entered in the program at the point where 
printing is to take place. 

Printer Control Records 

In the printer-oriented Monitor I System, there are 
three sps control records that pertain to printer opera- 
tions. The first two described here are modifications of 
sps control records used in the standard system; the 
third is a new control record. 

"LIST PRINTER -This record replaces the list 
typewriter record used in the standard systen It 
causes a listing to be printed by the printer during 
assembly. 

The format of the listing is as follows: page and line 
number, label, op code, operands, remarks, core loca- 
tion, and object instruction. 

•PRINT SYMBOL TABLE -This record replaces 
the type symbol table record used in the standard 
system. It causes the symbol table to be printed by the 
printer following assembly. 

**XXXXXXXXXXX - This record is used to print a 
heading above listings and/or symbol table printouts. 
The data (signified by Xs above) that follows the two 
asterisks is printed at the top of the respective printouts. 
When this record is typed out during assembly, it is 
shown as an Identification record with the code (ID) 
typed to the left of the two asterisks. This is also true of 
all Identification records used in the printer-oriented 
system; that is, the code ( ID ) is typed to the left of the 
record instead of to the right as in the standard system. 

IBM-Defined System Symbols 

In the printer-oriented system, the following system 
symbols are available to the user. Notice that the sym- 
bols are the same as those used in the standard system, 
but some of the equivalences are changed. 

Symbol Equivalence Description 

9RCYL0 00513 These are the low-order po- 

9RCYL1 00515 sitions of four 2-digit fields 

9RCYL2 00517 which contain the numbers 



9RCYL3 00519 of cylinders (00-99) where 

the disk access arm is repo- 
sitioned after a disk opera- 
tion in which a reposition 
has been requested. The 
four fields refer to drives 0, 
1, 2, 3, respectively. 

9CCYL0 02132 These are the low-order po- 

9CCYL1 02134 sitions of four 2-digit fields, 

9CCYL2 02136 similar to the previous four. 

9CCYL3 02138 However, these positions 

contain the cylinder num- 
bers of the current access 
arm positions ( the position 
of the arm after the last disk 
iort operation). 

Assembly Errors 

In addition to the sps ii-d error codes and descriptions 
listed in a previous section of this manual, the following 
error conditions will cause an error typeout: 

1. A space specification that is either or greater 
than 3 

2. A skip specification that is either or greater than 
12 

Either of the above conditions will be indicated by 
the error code ER5. 

If no Error Stop control record is included in the as- 
sembly, the processor will cause an erroneous space or 
skip specification to be set to 1. 

Error messages will appear on the typewriter, not on 
the printer. 



FORTRAN II-D 

The Fortran ii-d compiler has been modified to take 
advantage of the printer while compiling object pro- 
grams. Although the basic Fortran language remains 
unchanged, the specifications of several Fortran out- 
put statements have been modified. Also, the printer 
has replaced the console typewriter as the basic 
printed-output medium. 

Language 

PRINT — In the printer-oriented system, a print state- 
ment is used to transfer data to the 1443 Printer. A 
type statement is still used to transfer data to the 
console typewriter. 

FORMAT — A format statement, when used in con- 
junction with a print statement, can provide for up to 
120 characters for each printed line (or 144 char- 
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acters if the system has been properly defined). A 
format statement used with a type statement is still 
limited to 87 characters for each typed line. 

In addition to the normal function of a format 
statement, there is another function that it must per- 
form when used with a print statement. This func- 
tion consists of designating the desired space or skip 
operation for each printed line. A printer-oriented 
format statement must begin with 1H followed by 
a control character which specifies the desired oper- 
ation. The control characters and their effects are: 

blank — single space before printing 
— double space before printing 
1-9 — immediate skip to channels 1-9 

The control character itself does not become part of 
the printed output. 

EXAMPLE 

PRINT 2,A,B,J 
2 FORMAT (1H0, F8.2, F8.2, 18 ) 

This specification will provide a double space between 
the line being printed and the previous printed line. 

Note: The control carriage specification is applicable 
to the first line of print only. If more than one line is 
called for, the user must be sure that the carriage con- 
trol specification precedes the normal specifications for 
each line of print. For example: 

2 FORMAT (1H0, F8.2/1H0, E14.6) 

Control Records 

The five new control records that have been added to 
Fortran ii-d for the printer-oriented Monitor System 
are: 

* LIST PRINTER 

* ARITHMETIC TRACE 

* IF TRACE 

* ALL STATEMENT MAP 

** xxxxxxxxx 

The first four in the list are compile-time options 
previously available through console switch settings. 
The last record is a means of obtaining a heading at 
the top of each printed page. 

The format of these records is the same as described 
in the section entitled Fortran ii-d control records. 

* LIST PRINTER - This record will cause program 
listings and symbol table output to be printed. 

* ARITHMETIC TRACE -This record will cause 
trace instructions to be compiled for arithmetic 
statements. 



* IF TRACE — This record will cause trace instruc- 
tions to be compiled for the purpose of tracing the 
value of the expression generated in an if state- 
ment. 

* ALL STATEMENT MAP - This record will cause 
the address of the first instruction generated for 
each statement to be printed. 

** XXXXXXXXX - This record will cause a heading 
to be printed at the top of each printed page. The 
Xs represent the heading. Up to 78 characters may 
be specified. 

Listings and Symbol Table Output 

Listings and symbol table output will appear on the 
printer instead of the console typewriter. The control 
records used to obtain these outputs are described 
above. The formats of the outputs have been changed 
to take advantage of the characteristics of the printer. 
The loader map also appears on the printer. 

Error Messages 

All error messages will appear on the printer except 
loader error messages; in addition, error message Dl 
will also appear on the console typewriter. Instructions 
to the operator, for example, load subnam, will appear 
on the console typewriter. 

Subroutine error code F9 has been modified to in- 
clude any printer records that exceed 120 characters 
( or 144 characters if the system has been so defined ) . 

When a phase 2 error is detected, an error message 
in one of the following forms is printed on the 1443 
printer. 

SSSS+CCCC SYMBOL TABLE FULL 
SSSS+CCCC IMPROPER DO NESTING 
SSSS + CCCC DO TABLE FULL 
SSSS + CCCC MIXED MODE 

where ssss is the last statement number, encountered 
by the program prior to the error, and cccc is the 
number of statements following the last numbered 
statement, ssss + cccc is the statement that contains 
the error. Comment cards, blank cards, and continua- 
tion cards are not counted in the statement count. 



Trace Routine 

If the trace routine is used, its output will appear on 
the printer. If the 144 print position subroutines are 
used, floating variables will appear in E-type format 
and fixed variables in I-type format. 
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Carriage Control Tape 

The carriage control tape, when used for assembling 
and compiling, should be punched in channel 1 to indi- 
cate the beginning of a page, and punched in channel 
12 to indicate the end of a page. When the program 
senses the hole in channel 12, it automatically executes 
a skip to the channel 1 hole, which indicates the be- 
ginning of the next page. 

Arithmetic and I/O Subroutines 

The arithmetic and I/O subroutine sets used in the 
1620-1443 Monitor I System are longer than the sets 
used in the standard 1620 Monitor I System. This 
means that the starting addresses of Fortran object 
programs are higher in the printer-oriented system, as 
shown below: 

120 144 
Standard Printer Printer 
System System System 

Using in-core arithmetic 

and I/O subroutines 14000 14300 14600 

Using out-of-core arithmetic 

and I/O subroutines 07500 07800 08100 

Furthermore, the subroutine entry points for both 
the in-core and out-of-core subroutines used with the 



printer system are different from those in the standard 
system. 

Therefore, Fortran object programs compiled by 
the 1620 Monitor I System must be recompiled if they 
are to be used by the 1620-1443 Monitor I System. 

However, programs compiled for 1620-1443 Moni- 
tor I version 1 ( 120 print positions ) do not have to be 
recompiled to operate on 1620-1443 Monitor I version 
2 ( 144 print positions ) . 

Eight subroutine sets are available with the Moni- 
tor I version 2 System. They are identified as follows: 

OPTION A - 120 print position 

Set 1 short form — without floating point feature 
Set 2 long form — without floating point feature 
Set 3 short form — with floating point feature 
Set 4 long form — with floating point feature 

OPTION B - 144 print position 

Set 1 short form — without floating point 
Set 2 long form — without floating point feature 
Set 3 short form — with floating point feature 
Set 4 long form — with floating point feature 

Only the floating point sets or the non-floating point 
sets of a given option are loaded to the disk at any one 
time. For example, a user who has a 120 print position 
printer and has the automatic floating point feature 
would load only OPTION A, sets 3 and 4 on his disk 
pack. 
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Monitor I System Loader 



This program is used initially to load the Monitor I 
System from cards or paper tape into disk storage. 
Cards contain 75 columns of data followed by a 5- 
position sequence number. Sequence numbers are not 
present with tape data. 

The system to be loaded, in card or paper tape 
form, is comprised of several blocks of data, each 
with a unique deck number, a Heading Control rec- 
ord, and a 9's trailer record. With this arrangement 
it is possible to load each new block of data to a 
different area of disk storage as specified by the 
Heading Control records. For card input, the cards 
within a data block must be consecutively numbered 
in ascending sequential order. 

The combined input data, i.e., all data blocks, must 
be preceded by the Loader Program itself. This pro- 
gram is contained in approximately forty cards. If the 
sequence of the first four cards is inadvertently alter- 
ed, the program may not operate correctly. The load- 
er program is deck number 00, columns 30-31. All 
input cards, with the exception of the first four cards 
of deck 00, are sequence checked by the loader. 



Card Formats 

Heading Control 

Columns 1 Asterisk { * ) . 

2-7 Code word, ldcntr. 

9-14 Name of data block (program, 

table, etc.) to follow. 
16-21 Address of first sector to be 
loaded. 

23-28 Address of last sector to be 
loaded. 

30-32 Deck number. This number, com- 
bined with the two positions 79- 
80, constitutes the sequence 
number. Blanks are interpreted 
as zeros. Therefore, the number 
55 and a blank in columns 30-32 
are interpreted as sequence 
number 55000. The first card of 
the data block must then begin 



with the sequence number 55001 
in columns 76-80. 



Data 



Columns 1-75 Data to be loaded to disk storage. 
76-80 Sequence number. 



Trailer 

Columns 



1-5 
6 
7-8 



99999 
00 



Operating Procedures 
Switches 

The Parity, I/O and OTLOW check switches should 
be in the program position for either card or tape 
loading. For card or tape input, the program will halt 
after each trailer card if Program Switch 1 is off. If 
the switch is on, all data blocks are loaded without 
stopping the computer. Therefore, the user can stack 
input, if desired. 

Paper Tape Loading 

1. Ready the paper tape reader with the Loader 
tape reel. 

2. Enter 36 00000 00300 from the typewriter. 

3. Depress the Release and Start keys. 

4. Ready the tape reader with the Data tape reel. 

5. Depress the 1620 Start key. 

6. Return to step 4 to load successive Data tapes. 

Note: When loading with Switch 1 on, the Loader 
will continue to read more data after each data group 
has been loaded. Therefore, several such data input 
groups may be present on one input reel. 

Card Loading 

1. Ready the card reader with deck number 00, 
Loader Program. The remaining decks may be 
stacked behind deck 00 as explained under 

SWITCHES. 

2. Depress the 1622 Load key. 
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Messages 

FOR BOTH PAPER TAPE AND CARD LOADERS 

Message/Cause/Operation Action 



AAAAAA LOADED FROM FFFFFF TO LLLLLL, 
where AAAAAA is the name of a data block, FFFFFF 
is the address of the first sector loaded, and LLLLLL 
is the address of the last sector loaded. This message 
will type following each successful deck loading. If 
Program Switch 1 is on, it is an indication to the 
operator to load the next deck. 

DISK RD WR ERROR, START TO RETRY. This 
message will type if a disk write error occurs that 
cannot be corrected by one automatic retry. De- 
pressing the Start key will cause the write opera- 
tion to be retried twice. If the error is not correct- 
ed by the retries, the message will again be typed. 

RDER. This message will type if a paper tape or card 
reading error occurs. To correct the error, ready the 
reader with the corrected record and depress the 
Start key. ( An error card will be located next to the 
last card in the stacker when a halt occurs for a 
card reading error. ) 

CONTROL STATEMENT INVALID, RE-ENTER. 
This message will type if any of the following con- 
ditions are encountered in Heading Control record 
data. 

1. A misspelled code word. 

2. A record mark in column 6. 

3. First sector to be loaded is greater than last 
sector to be loaded. The user must supply a 
corrected control record and depress the 1620 
Start key. 



FOR CARD LOADER ONLY 

Message/Cause/ Operator Action 

SEQ. This message will type and the program will 
halt if any of the cards in the loader program, 
with the exception of the first four cards, is out of 
sequence. To resume loading, { 1 ) restore the cards 
to their correct sequence and place them in the 
card hopper, (2) depress the Start keys on both 
the card reader and 1620 console. 

NNNNN CARD SEQ ERROR, CORRECT AND 
START, where NNNNN is the sequence number of 
the first data card out of consecutive ascending se- 
quence. After the message is typed, the program 
will halt. To restart the computer, (1) restore the 
sequence of data cards, starting with the card in 
error, (2) place the resequenced cards in the card 
read hopper, (3) depress the Start keys on both 
the card reader and 1620 console. 

NO TRAILER REC. CORRECT, RE-LOAD COM- 
PLETE DECK WITH CNTR REC, AND BR TO 
7404. This message will type and the program will 
halt if a 9's trailer record is missing following any 
data block. To restart the computer, the user 
should (1) restack the cards in the card reader so 
as to restart card reading with the Header card of 
the data block which had the missing trailer rec- 
ord. (2) Depress the Reset and Insert keys. (3) En- 
ter 49 07404 from the typewriter. (4) Depress the 
Release and Start keys. (5) Depress the card read- 
er Start key. 

TRAILER CARD SEQ ERROR, CORRECT AND 
START. This message will be typed if the sequence 
number on the trailer card is incorrect. The pro- 
cedure for restarting as the same is for any other 
card sequence error. 
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Appendix A 



SPS Tables 



Table 15. Summary of SPS Declarative Operations 

NOTE: Except for the constants in DC, DSC, and DAC, all operands may be actual or symbolic. All symbolic length and address 
operands must be previously defined. All operands may use address adjustment. Remarks may follow operands except in DSA and DVLC 
statements. "Alpha Record Address" in the table refers to the leftmost position plus one of an alphameric field, whereas "Field Address" 
refers to the rightmost position of a field. The term "Numerical Record Address" refers to the leftmost position of a field. 



DECLARATIVE STATEMENT 
FORMAT 


AMOUNT ADDED TO LOCA- 

1 ICIN AoilVJ [NmtlN 1 C^JUlN ItK 

IF ADDRESS (A) IS BLANK 


VALUE STORED IN SYMBOL 
TARLF AS FQUIVAI FMT 
TO "SYMBOL" 


DATA FIELDS WHICH ARE 
i nAricn ac a papt of 

THE OBJECT PROGRAM 


LABEL 


OP 
CODE 


OPERANDS 


SYM 


DS 


L,A 


L (length). 

If L is blank, is added . 


A address. If A is blank, the 
field address from the location 
assignment counter is stored. 


None. 


SYM 


DSS 


L,A 


L (length). 

If L is blank, is added. 


A address. If A is blank, the 
numerical record address from 
the location assignment counter 
is stored . 


None . 


SYM 


DAS 


L,A 


2 x L is added. If L is blank, 
is added. 


A address must be odd. If A is 
blank, the alpha record address 
from the location assignment 
counter is stored. 


None. 


SYM 


DC 


L,C,A 


L is added. 


A address. If A is blank, the 
field address from the location 
assignment counter is stored. 


C, the (numerical) constant . 


SYM 


DSC 


L,C,A 


L is added. 


A address. If A is blank the 
numerical record address from 
the location assignment counter 
is stored . 


C, the (numerical) constant. 


SYM 


DVLC 


A,L,C, 
L,C, etc. 


L is added. 


First C address . 


C, C, etc., the (numerical) 
constants . 


SYM 


DAC 


L,C,A 


2 x L is added . 


A address must be odd. If A is 
blank, the alpha record address 
from the location assignment 
counter is stored. 


C, the (alphameric) constant. 


SYM 


DSA 


D,E,F,G, 
H, 1, J, K, 
L,M 


5 x (number of addresses) is 
added. 


Field address of the first address 
on list. 


A list of the actual addresses 
that correspond to D, E,F, etc. 


SYM 


DSB 


L,N,A 


Length of each element times 
the number of elements is added . 


A address. If A is blank, field 
address of the first element is 
stored . 


None . 


SYM 


DNB 


L,A 


L is added. 


A address. If A is blank, the 
field address from the location 
assignment counter is stored. 


Number of blank characters 
that equal L. 


SYM 


DDA 


A,D,F,S, 
M 


14, length of a disk control 
field. 


(Same as DSC) . 


D,F,S,M. 


SYM 


DGM 


A 


I 


A address or location counter. 


^ (Group Mark) . 
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Table 16. Summary of SPS Arithmetic Instructions 



NOTE: Indirect Addressing (special feature) is allowablewith all P address operands listed below. 
An * to the left of the Q operand indicates that this feature may be used with it. 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Add 


A 


21 


position of augend 


units position of addend 


Add Immediate 


AM 


11 


Same as code 21 


Q ] 1 of instruction is 
units position of addend 


Subtract 


S 


22 


Storage address of units 
position of minuend 


*S forage address of 
units position of sub- 
trahend 


Subtract 
Immediate 


SM 


12 


Same as code 22 


Q ] | of instruction is 
units position of sub- 
trahend 


Multiply 


M 


23 


Storage address of units 
position of multiplicand 


*S forage address of 
multiplier 


Multiply 


MM 


13 


Same as code 23 


Q j] of instruction is 
un i ts pos it i on of 
multiplier 


Load Dividend 
(special feature) 


LD 


28 


Storage address in pro- 
duct area to which 
units position of field 
(dividend) is to be 
transmitted 


*Storage address of 
units position of 
di via* end 


Load Dividend 
Immediate 
(special 
feature) 


LDM 


18 


Same as code 28 


| j of instruction is 
units position of divi- 
dend 


Divide (special 
feature) 


D 


29 


Storage address at 
which first subtraction 
of the divisor occurs 


* Storage address of 
units position of 
divisor 


Divide 
Immediate 
(special 
feature) 


DM 


19 


Some as code 29 


G} 1 1 of instruction is 
units position of divisor 


Floating Add 

(special 

feature) 


FADD 


01 


Storage address of units 
position of exponent of 
augend 


•Storage address of 
units position of ex- 
ponent of addend 


Floating Sub- 
tract (special 
feature) 


FSUB 


02 


Storage address of units 
position of exponent of 
minuend 


*S forage address of 
units position of ex- 
ponent of subtrahend 


Floating 
Multiply 
(special 
feature) 


FMUL 


03 


Storage address of units 
position of exponent of 
multiplicand 


*Sforage address of 
units position of ex- 
ponent of multiplier 


Floating 
Divide 
(special 
feature) 


FDIV 


09 


Storage address 
of units position 
of exponent of 
dividend 


•Storage address of 
units position of ex- 
ponent of divisor 



Table 17. Summary of SPS Internal Data Transmission Instructions 



NOTE: Indirect Addressing (special feature) is allowable with all P address operands listed below. 
An * to the left of the Q address operand indicates that this feature may be used with it. 



OPERATION 


OPERATION CODES 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 




Transmit Digit 


TD 


25 


Storage address to 
which single digit is 
transmitted 


*S forage address of 
single digit to be trans- 
m i tted 


Transmit Digit 
Immediate 


TDM 


15 


Same as code 25 


Q]] of instruction is 
the single digit to be 
transmitted 


Transmit Field 


TF 


26 


Storage address to 
which units position of 
field is transmitted 


*Storage address of 
units position of field 
to be transmitted 


Transmit Field 
Immediate 


TFM 


16 


Same as code 26 


Q ] j of instruction is 
the units position of the 
field to be transmitted 


Transmit Record 


TR 


31 


Storage address to 
which high-order posi- 
tion of the record is 
transmitted 


*Sforage address of 
high-order position of 
the record to be trans- 
mitted 


Transfer 
Numerical 
Strip (special 

rim fri ir a t 

M CVi 1 Kit C J 


TNS 


72 


Storage address of right 
most position of alpha- 
meric field to be trans- 
mitted 


•Storage address of the 
units position of the 
numerical field 


Transfer 
Numerical Fill 
(special 
feature) 


TNF 


73 


Storage address of right- 
most position of alpha- 
meric field 


* Storage address of the 
units position of the 
numerical field to be 
transmitted 


Floating Shift 
Right (special 
feature) 


FSR 


08 


Storage address to 
which units (rightmost) 
digit of mantissa is 
transmitted 


•Storage address (right- 
most) digit of mantissa 
to be transmitted 


Floating Shift 
Left (special 
feature) 


FSL 


05 


Storage address to 
which high-order digit 
of the mantissa is trans- 
mitted 


•Storage address of low- 
order digit of mantissa 
to be transmitted 


Transmit 
Floating 
(special 
feature) 


TFL 


06 


Storage address to 
which units position of 
exponent is transmitted 


•Storage address of units 
position of exponent of 
field to be transmitted 



142 



Table 18. Summary of SPS Logic (Branch and Compare) Instructions 



NOTE: Both trie Bl (Branch Indicator) and BNI (Branch No Indicator) instructions require one of 
the switch or indicator codes listed in Table 21 as a Q address. The code indicates the switch or 
indicator to be interrogated for status. To relieve the programmer of having to code a Q address, 
unique mnemonics are included in SPS language for both Bl- and BNI-type instructions. For a 
unique mnemonic, the processor generates the actual machine language code 46 (Branch Indicator) 
or 47 (Branch No Indicator) and the Q address that represents the switch or indicator. 

Indirect Addressing (special feature) is allowable with all P address operands listed below except 
Branch Back. An * to the left of the Q address operand indicates that this feature may be used 
with it. 



OPERATION 


OPERATION CODES 


OPERANDS 




MINtMU Nlv- 


AO. IUAL 


r ADDKt55 


Q ADDRESS 


Compare 


C 


24 


Storage address of units 
position of the field to 
which another field is 
compared 


*Storage address of 
units position of the field 
to be compared with the 
field at the P address 


Compare 
Immediate 


CM 


14 


Same as code 24 


Q j j of instruction is 
units position of the field 
to be compared with the 
field at the P address 


Branch 


B 


49 


Storage address of the 
leftmost digit of the next 
instruction to be exe- 
cuted 


Not used 


Branch and 
adjust assign- 
ment counter 


B7 


49 


Storage address of the 
leftmost digit of the next 
instruction to be exe- 
cuted 


Not used . However, 
these five locations are 
AJsed by the next instruc- 
tion in sequence 


Branch 
No Flag 


BNF 


44 


Storage address of the 
leftmost digit of next 
instruction to be exe- 

c ■ t /*! if rv/i rv* r» r\eT" 1 1 rc 


* Storage address to be 
interrogated for presence 
of a flag bit 


Branch No 
Record Mark 


BNR 


45 


Same as code 44 


*Storage address to be 
interrogated for presence 
of a record mark char- 
acter 


Branch No 
Group Mark 


BNG 


55 


Same as code 44 


•Storage address to be 
interrogated for presence 
of a group mark character 


Branch on Digit 


BD 


43 


Same as code 44 


*Storage address to be 
interrogated for a digit 
olfier than zero 


Branch 
Indicator 


Bl 


46 


Storage address of left- 
most position of next 
instruction to be exe- 
cuted if indicator tested 
is on 


Qg and Q of instruction 
specify the program switch 
or indicator to be inter- 
rogated (see Table 21) 


Unique Branch 

Indicator 

Mnemonics: 










Branch High 


BH 


46 


Same as Bl 


None required 
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Table 18. Summary of SPS Logic (Branch and Compare) Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 




Branch Positive 


BP 


46 


Same as Bl 


None required 


Branch Equal 


RP 
DC 


AA 
«fO 


iame as di 


None required 


Branch Zero 


BZ 


46 


Same as Bl 


None required 


Branch Over- 
flow 


BV 


46 


Same as Bl 


None required 


Branch Any 
Data Check 


BA 


46 


Same as Bl 


None required 


Branch Not Low 


BNL 


46 


Same as Bl 


None required 


Branch Not 
Negative 


DIN IN 




Same as Bl 


None required 


Branch Console 
Switch 1 On 


BC 1 


46 


Same as Bl 


None required 


Branch Console 
Switch 2 On 


BC2 


46 


Same as Bl 


None required 


Branch Console 
Switch 3 On 


BC3 


46 


Same as Bl 


None required 


Branch Console 
Switch 4 On 


BC4 


46 


Same as Bl 


None required 


Branch Last 
Card 


BLC 


46 


Same as Bl 


None required 


Branch Expon- 
ent Check 
(special feature) 


BXV 


46 


Same as Bl 


None required 


Branch No 
Indicator 


BNI 


47 


Storage address of left- 
most position of next 
instruction to be exe- 
cuted if indicator tested 
is off 


Q3 and Qo of instruction 
specify program switch 
or indicator to be inter- 
rogated (see Table 21) 


Unique Branch 
No Indicator 
Mnemonics: 










Branch Not 
High 


BNH 


47 


Same as BNI 


None required 


Branch Not 
Positive 


BNP 


47 


Same as BNI 


None required 


Branch Not 
Equal 


BNE 


47 


Same as BNI 


None required 


Branch Not 
Zero 


BNZ 


47 


Same as BN 1 


None required 
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Table 18. Summary of SPS Logic (Branch and Compare) Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Branch No 
Overflow 


BNV 


47 


Same as BNI 


None required 


Branch Not Any 
Data Oteck 


BNA 


47 


Same as BNI 


None required 


Branch Low 


BL 


47 


Same as BNI 


None required 


Branch Negative 


BN 


47 


Same as BNI 


None required 


Branch Console 
Switch I Off 


BNC1 


47 


Same as BNI 


None required 


Branch Console 
Switch 2 Off 


BNC2 


47 


Same as BNI 


None required 


Branch Console 
Switch 3 Off 


BNC3 


47 


Same as BNI 


None required 


Branch Console 
Switch 4 Off 


BNC4 


47 


Same as BNI 


None required 


Branch Not 
Last Card 


BNLC 


47 


Same as BNI 


None required 


Branch Not 
Exponent Check 
(special feature) 


BNXV 


47 


Same as BNI 


None required 


Branch and 
Transmit 


BT 


27 


P m/iracc miniic nna ic 
r wares* minus wnc is 

the storage address to 
which the units position 
of the Q field is trans- 
mitted. P address is 
leftmost digit of the next 
instruction to be exe- 
cuted 


^Storage address of units 
position of the field to 
be transmitted 


Branch and 
Transmi t 
Immediate 


BTM 


17 


Same as code 27 


Q] I of instruction is units 
position of field to be 
transmitted 


Branch Back 


BB 


42 


Not used 


Not used 


Branch Back 
and Adjust 
Assignment 
Counter 


BB2 


42 


Not used. However, 
these five locations org 
used by the next instruc- 
tion in sequence 


Not used . However, these 
five locations are used by 
the next instruction in 
sequence 


Branch and 
Transmi t 
Floating 

(special feature) 


BTFL 


07 


P address minus one is 
the storage address to 
which the units position 
of the exponent portion 
of the Q field is trans- 
mitted. P is the storage 
•address of the leftmost 
digit of the next instruc- 
tion to be executed 


*Storage address of units 
position of exponent of 
field to be transmitted 



Table 19. Summary of SPS Input and Output Instructions 



NOTE: Indirect Addressing (special feature) is allowable with all P address operands, where a P 
operand is required. None of the Q operands shown may be used with Indirect Addressing. 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Read Numeri- 
cally 


RN 


36 


Storage address at which 
leftmost (first) numeri- 
cal character is stored 


Q8 and Q9 of instruction 
specify input device 


Unique Read 
Numerically 
Mnemonics: 










Read Numeri- 
cally Typewriter 


RNTY 


36 


Same as RN 


None required 


Read Numeri- 
cally Paper Tape 


RNPT 


36 


Same as RN 


None required 


Read Numeri- 
cally Card 


RNCD 


36 


Same as RN 


None required 


Write Numeri- 
cally 


WN 


38 


Storage address from 
which leftmost (first) 
numerical character is 
written 


Qg and Qo of instruction 
specify output device 


Unique Write 
Numerical ly 
Mnemonics: 










Write Numeri- 
cally Typewriter 


VA/MTV 

Win 1 Y 


OO 


bame as WN 


None required 


Write Numeri- 
cally Paper Tape 


WMPT 
VY INr 1 


JO 


same as win 


None required 


Write Numeri- 
cally Card 


wKif - n 

WINl** U 


00 


iame as win 


None required 


Dump Numeri- 
cally 


DN 


35 


Same as WN 


Same as WN 


Unique Dump 
Numerically 
Mnemonics: 










Dump Numeri- 
cally Typewriter 


DNTY 


35 


Same as WN 


None required 


Dump Numeri- 
cally Paper Tape 


DNPT 


35 


Same as WN 


None required 


Dump Numeri- 
cally Card 


DNCD 


35 


Same as WN 


None required 


Read Alpha - 
merical ly 


RA 


37 


Storage address at which 
numerical digit of left- 
most (first) character is 
stored. (Zone digit of 
first character is at P 
minus one) 


Q8 and Qo of instruction 
specify input device 


Unique Read 

Alphamerically 

Mnemonics: 










Read Alpha- 
merically 
Typewri ter 


RATY 


37 


Same as RA 


None required 


Read Alpha- 
merically 
Paper Tape 


RAPT 


37 


Same as RA 


None required 
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Table 19. Summary of SPS Input and Output Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Read Alpha - 
merically Card 


RACD 


37 


Same as RA 


None required 


Write Alpha- 
merical ly 


WA 


39 


Storage oddress of nu- 
merical digit of leftmost 
(first) character to be 
written. (Zone digit of 
first character is at P 
minus one) 


Q8 and Qo of instruction 
specify output device 


Unique Write 
Alphamerically 
^Ancmon ics* 










Write Alpha- 
merical ly 
Typewriter 


WATY 


39 


Same as WA 


None required 


Write Alpha- 
merically 

Pnnpr To 


WAPT 


39 


Same as WA 


None required 


Write Alpha- 
merically Card 


WACD 


39 


Same as WA 


None required 


Control 


K 


34 


Not used 


Q8 and Q9 specify input/ 
output device. Q] ] 
specifies control func- 
tions 


Unique Control 
ncmon ics * 










Tabulate 
Ty pewri ter 


TBTY 


34 


Not used 


None required 


Return Carriage 
Typewri ter 


RCTY 


34 


Not used 


None rccj u irccf 


Space Typewri tei 


SPTY 


34 


Not used 


None recjuired 


Seek 


SK 


34 


Storage address of disk 
control field 


X07X1 


ftead Disk/WLRC 


RDGN 


36 


Same as SK 


X07X0 


Write Disk/ 
WLRC 


WDGN 


38 


Same as SK 


X07X0 


Check Disk/ 
WLRC 


CDGN 


36 


Same as SK 


X07X1 


Read Disk 
Track/WLRC 


RTGN 


36 


Same as SK 


X07X4 


Write Disk 
Track/WLRC 


WTGN 


38 


Same as SK 


X07X4 


Check Disk 
Track/WLRC 


CTGN 


36 


Same as SK 


X07X5 


Read Disk 


RDN 


36 


Same as SK 


X07X2 


Write Disk 


WDN 


38 


Same as SK 


X07X2 


Check Disk 


CDN 


36 


Same as SK 


X07X3 


Read Disk Track 


RTN 


36 


Same as SK 


X07X6 



Table 19. Summary of SPS Input and Output Instructions (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Write Disk 
Track 


WTN 


38 


Same as SK 




X07X6 


Check Disk 
Track 


CTN 


36 


Same as SK 




X07X7 



Table 20. Summary of SPS Miscellaneous Instructions 



NOTE: Indirect Addressing (special feature) is allowable with all P or Q address operands that 
are marked with an * . 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Set Flag 


SF 


32 


*Storage address at 
which flag bit is placed 


Not used 


Clear Flag 


CF 


33 


* Storage address from 
which flag bit is cleared 


Not used 


Move Flag 
(special feature) 


MF 


71 


*Storage address to 
which flag bit is moved 


*Storage address of flag 
bit to be moved 


Halt 


H 


48 


Not used 


Not used 


No Operation 


NOP 


41 


Not used 


Not used 
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Table 21. 1620/1710 Indicator Codes for SPS BI-BNI 
Instructions 



NOTE: This table lists only those indicators that do not have unique 
mnemonics . 



INDICATOR 


Q ADDRESS 


Q 7 Q 8 


Q 9 Q ]0 Q n 


Read Check 





6 


Write Check 





7 


MAR Check 





8 


MBR-E Check 


1 


6 


MBR-O Check 


1 


7 


Operator Entry 


1 


8 


Terminal Address Selector (TAS) 






Check 


2 


1 


Function Register Check 


2 


2 


Analog Output (AO) Check 


2 


3 


Mask 


2 


6 


Customer Engineer (CE) Interrupt 


2 


7 


Analog Output Setup 


2 


8 


Multiplexer Busy 


2 


9 


Multiplex Complete 


4 





Analog Output Setup Interrupt 


4 


1 


One Minute Interrupt 


4 


3 


One Hour Interrupt 


4 


4 


Any SIOC Interrupt 


4 


5 


Process Interrupt 1 


4 


8 


Process Interrupt 2 


4 


9 


Process Interrupt 3 


5 





Process Interrupt 4 


5 


1 


Process Interrupt 5 


5 


2 


Process Interrupt 6 


5 


3 


Process Interrupt 7 


5 


4 


Process Interrupt 8 


5 


5 


Process Interrupt 9 


5 


6 


Process Interrupt 10 


5 


7 


Process Interrupt 1 1 


5 


8 


Process Interrupt 12 


5 


9 


Process Branch Indicator 1 


7 





Process Branch Indicator 2 


7 


1 


Process Branch indicator 3 


7 


2 


Process Branch Indicator 4 


7 


3 


Process Branch Indicator 5 


7 


4 


Process Branch Indicator 6 


7 


5 


Process Branch Indicator 7 


7 


6 



INDICATOR 


Q ADDRESS 


Q 7 Q 8 


Q 9 


Q 10 


Q ll 


Process Branch Indicator 8 


7 


7 






Process Branch Indicator 9 


7 


8 






Process Branch Indicator 10 


7 


9 






Process Branch Indicator 1 1 


8 









Process Branch Indicator 12 


8 


1 






Process Branch Indicator 13 


8 


2 






Process Branch Indicator 14 


8 


3 






Process Branch Indicator 15 


8 


4 






Process Branch Indicator 16 


8 


5 






Process Branch Indicator 17 


8 


6 






Process Branch Indicator 18 


8 


7 






Process Branch Indicator 19 


8 


8 






Process Branch Indicator 20 


8 


9 






olf v- vjutput error 


6 





4 


3 


Alert 


6 





4 


5 


SIOC Unit 1 Response 


6 





7 





SIOC Unit 2 Response 


6 





7 


1 


SIOC Unit o Response 


6 





7 


2 


SIOC Unit 4 Response 


6 





7 


3 


SIOC Unit 5 Response 


6 





7 


4 


SIOC Unit 6 Response 


6 





7 


5 


blUC Unit / Kesponse 


6 





7 


6 


blUC Unit o Kesponse 


6 





7 


7 


blUC Unit V Kesponse 


6 





7 


8 


SIUC Unit IU Kesponse 


6 





7 


9 


blUe Unit 1 1 Kesponse 


6 





8 





blue Unit Iz Kesponse 


6 





8 


1 


SIOC Unit 13 Response 


6 





8 


2 


olvjv. Unit 14 Kesponse 


6 





8 


3 


SlUt Unit 15 Response 


6 





8 


4 


5ICX. Unit lo Kesponse 


6 





8 


5 


SIOC Unit 17 Response 


6 





8 


6 


SIOC Unit 18 Response 


6 





8 


7 


SIOC Unit 19 Response 


6 





8 


8 


SIOC Unit 20 Response 


6 





8 


9 


Disk Address Check 


3 


6 






WLR/RBC 


3 


7 






Cylinder Overflow 


3 


8 






Any Disk Check 


3 


9 






Seek Complete 


4 


2 
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Table 22. 1710 SPS Operation Codes 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Select Address 
and Operate 


SAO 


84 


Not used 


Q 7 specifies operation; 
Q 9 - Q ] J specify a 
terminal address 


Unique Select 
Address and 
Operate 
Mnemonics: 










Select Address 


SA 


84 


Same as SAO 


Q 7 = 1; Q 9 - Q n 
specify terminal address 
of analog input point 


Select Address 
and Contact 
Operate 


SACO 


84 


Same as SAO 


Q 7 = 2; Q9 - Q n 
specify terminal address 
of contact point 


Select Analog 
Output Signal 


SAOS 


84 


Same as SAO 


Q 7 = 3; Q 9 - Q,, 
specify terminal address 
of analog output 
channel 


Select Read 
Numerically 


SLRN 


86 


Depends upon particular 
operation 


Depends upon particular 
operation 


Unique Select 
Read Numeri- 
cally 

Mnemonics: 










Select TAS 


SLTA 


86 


Core location where 
high-order position of 
TAS is transferred 


not used 


Select ADC 
Register 


J LAS f\ 


oo 


Core location where 
high-order position of 
ADC register is trans- 
ferred 


specify analog input 
address 


Select Contact 
Block 


SLCB 


86 


Core location where 
status of the first contact 
scanned is stored 


Q 7 = 7; Q 9 - Qj , 
specifies the contact 
block address where 
reading begins 


Select Real- 
Time Clock 


SLTC 


86 


Core location where 
high-order digit of RTC 
is transferred 


Q 7 = 4; Qs - Q) ] are 
not used 


Select ADC 
and Increment 
(1711 Model 1) 


SLAD 


86 


Core location where 
high-order position of 
ADC is transferred 


Q 7 = 6; Qq - Q] ] are 
not used 


Select Manual 
Entry Switches 


SLME 


86 


Core location where 
high— order digit of 
Manual Entry switches 
is transferred 


Q 7 = 8; Qq - Q j j are 
not used 


Branch Out Of 
Noninterrup- 
tible Mode 


BO 


47 


Address to be placed in 
IR-3 


Q 8 - Q 9 = 00; Q =0 


Branch Out Of 
Noninterrup- 
tible Mode and 
Load 


BOLD 


47 


Address to be placed in 
IR-1 


Q 8 - Q 9 = 00; Q ,, = 1 


Mask 


MK 


46 


Not used 


Q 8 - Q 9 = 00; Q , , =1 


Unmask 


UMK 


46 


Not used 


Q 8 - Q 9 = 00; Q j | =0 


Select Input 
Channel 


sue 


86 


Not used 


QlO-Qll specify the 
address of an SIOC input 
unit 
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Table 22. 1710 SPS Operation Codes (cont'd.) 



OPERATION 


OPERATION CODE 


OPERANDS 




MNEMONIC 


ACTUAL 


P ADDRESS 


Q ADDRESS 


Read Numerical 
Input Channel 


RNIC 


86 


Core storage location 
where data is to be read 


Q 7 = 5; Qs - Q] i not 
used 


Keaa /\ipna— 
meric Input 
Channel 


RAIC 


87 


Same as RNIC 


Same as RNIC 


Write Numerical 
Output Channel 


WNOC 


88 


Core storage location 
from which data is to 
be written 


Q JO - Q 1 1 specify an 
SIOC output unit 


Write Alpha- 
meric Output 
Channel 


WAOC 


89 


Same as WNOC 


Same as WNOC 


Unique SIOC 
Branch Indicator 
Mnemonics: 










Branch Output 
Record Mark 

Branch End of 
Message 


BOR 
BRE 


46 
46 


Core storage address of 
leftmost position of next 
instruction to be exe- 
cuted if indicator tested 
is on 

Same as BOR 


None required 
Same as BOR 


Branch Mode 
Shift 


BMC 


46 


Same as BOR 


Same as BOR 


Branch Data 
Read/ 


BIR 


46 


Same as BOR 


Same as BOR 


Branch SIOC 
Not Busy 


BCNB 


46 


Same as BOR 


Same as BOR 


Unique SIOC 
Branch No 
Indicator 
Mnemonics: 










Branch No 
Output Record 
Mark 


BNOR 


47 


Core storage address of 
leftmost position of next 
instruction to be exe- 
cuted if indicator tested 
is off 


None required 


Branch No End 
of Message 


BNRE 


47 


Same as BNOR 


Same as BNOR 


Branch No 
Mode Shift 


BNMC 


47 


Same as BNOR 


Same as BNOR 


Branch No 
Data Ready 


BNIR 


47 


Same as BNOR 


Same as BNOR 


Branch -No 
SIOC Not Busy 


BCB 


47 


Same as BNOR 


Same as BNOR 
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Table 23. SPS Subroutine Macro-instruction Execution Times 



NOTE: These execution times depict the total time from the encountering of a Macro-statement to the "return to mainline. " 



CI IQD^"M ITIK.IC 


AVtKA(jt tAfcCUl HJN IIMt 


Floating Add 


Fixed length 

Average time = 9 ms 
Variable length ^ 

Average time (in/js) = 5L + 482L + 6854 where L=length of mantissa 


Floating Subtract 


Fixed length 

Average time = 10.5 ms 
Variable length ^ 

Average time (in^s) = 5L + 482L + 7474 


Floating r^ultiply 


Fixed length 

Average time = 18 ms 
Variable length « 

Average time (in us) = 168 L + 240L + 7400 


Floating Divide 


Fixed length 

Average time = 55 ms 
Variable length ~ 

AuAmna timA linnet = ^901 4- 1^001 4- 7ft 90 

m veruge rime \ in LI 5/ — *j£i/t. t i juul ~ / o 7v 


Fixed Point Divide 


Fixed length and variable length 

Average time (in ms) =9.80 +.040 LDVD + (.520 LDVR + .740) (100-B1) 
where LDVD is length of dividend field, 

LDVR is length of divisor field, and Bl is value specified in macro-instruction 


Floating Shift Right 


Fixed length and variable length 

Average time (in Ms) = 4960 + 960L - 880 (A-B) 


Floating Shift Left 


Fixed length and variable length 

Average time (in us) = 6460 + 1520 (B-A) - 360L 


Transmit Floating 


Fixed' length and variable length 

Average time (in its) = 400 + 40L 


Branch and Transmit Floating 


Fixed length and variable length 

Average time (in Ms) = 2280 + 40L 


Floating Square Root 


Fixed length 

Average time — 1 20 ms 
Variable length ~ 

Average time (in us) = 620L + 9776L + 5328 


Floating Sine 


Fixed length 

Average time = 150 ms 
Variable length * ^ 

Average time (in fjts) = 168L° + 3792L + 13340L + 4708 

NOTE: These executions times are for arguments less than 2n. Arguments greater than 2n are 
reduced by subtractions of 2w until within range. Therefore, the time required to perform these 
subtractions should be added to the average time required for an argument less than 2ir . 


Floating Cosine 


Fixed length 

Average time = 155 ms 
Variable length » ~ 

Average time (in Us) = 168L J + 3792L + 13420L + 5228 


Floating Arctangent 


Fixed length 

Average time = 260 ms 
Variable length ■> n 

Average time (in ixs) = I68L + 2996L + 7792L + 7260 


Floating Exponential (Natural) 


Fixed length 

Average time = 160 ms 

NOTE: Add 70 ms to the average time if B is negative. 

Variable length o 9 

Average time (in tts) = 168L + 3582L* + 15890L + 26418 


Floating Exponential (Base 10) 


Fixed length 

Average time = 145 ms 

NOTE: Add 70 ms to the average time if B is negative. 

Variable length ^ 7 

Average time (in /is) = ]68L + 3656L + 15414L + 24538 


Floating Logarithm (Natural) 


Fixed length 

Average time = 290 ms 
Variable length ^ 2 

Average time (in its) = 168L + 344OL + 10530L +12180 


Floating Logarithm (Base 10) 


Fixed length 

Average time = 305 ms 
Variable length 

Average time (in is) = I68L + 3608L + 1 161 0L +15108 
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Table 24. 1620 Character Coding 



NUMERICAL 
MODE 



Character 


Input 


Core Storage 


Output 


Typewriter 


Tape 


Card 


Alpha 


Num 


Typewriter 


Tape 


Card 


(Blanks 


(Space) 


C 


(Blank) 


C 


C 


(Space) 


C 


(Blank) 






X0821 


12,3,8 


C 


3 




X0821 


12,3,8 


\ 


) 


X0C84 


12,4,8 


c 


4 


) 


X0C84 


12,4,8 




+ 


XOC 


12 


1 


C 


+ 


XOC 


12 




$ 


XC821 


11,3,8 


1 


3 


$ 


XC821 


11,3,8 


* 


* 


X84 


11,8,4 


1 


4 


* 


X84 


11,4,8 


— (Hyphen) 




X 


11 


2 


C 




X 


11 


/ 


/ 


0C1 


0,1 


2 


1 


/ 


0C1 


0,1 


/ (Comma) 




0C821 


0, 3,8 


2 


3 


i 


0C821 


0,3,8 


/ 
\ 


( 


084 


0,4,8 


2 


4 


( 


084 


0,4,8 




_ 


821 


3,8 


3 


3 


_ 


821 


3,8 


& 


@ 


C84 


4,8 


3 


4 


@ 


C84 


4,8 


A-l 


A-l 


X0, 1-9 


12, 1-9 


4 


1-9 


A-l 


XO, 1-9 


12, 1-9 


(—) 


(None) 


(None) 


11,0 


5 


C 


- (Hyphen) 


X 


",o 


J-R 


J-R 


X,l-9 


11,1-9 


5 


1-9 


J-R 


X,l-9 


11,1-9 


1-9 (-) 


J-R 


X,l-9 


11,1-9 


5 


1-9 


J-R 


X, 1-9 


11, 1-9 


S-Z 


S-Z 


0,2-9 


0,2-9 


6 


2-9 


S-Z 


0,2-9 


0,2-9 


0(+) 








Oor 12,0 


7 


C 











1-9 (+) 


1-9 


1-9 


1-9 


7 


1-9 


1-9 


1-9 


1-9 


* 


* 


082 


0,2,8 


C 


C82 


(Stop) 


EOL 


0,2,8 




















(Blank) 


(Space) 


C 


(Blank) 




C 











0(+) 













C 











0(-) 





X,X0C 


11,0 




F 





X 


*1 1 or 
11,0 


1-9 (+) 


1-9 


1-9 


1-9 




1-9 


1-9 


1-9 


1-9 


1-9 (-) 


T-9 


X,1-9 


11,1-9 




F,l-9 


1-9 


X,l-9 


11,1-9 


* 




082 


0,2,8 




C82 


(Stop, WN) 
t (DN) 


EOL(WN) 
082 (DN) 


0,2,8 


* 


* 


X82 


11,8,2 




F82 


* 


X82 


11,8,2 


* 




08421 


0,7,8 




**C8421 




08421 


0,7,8 




i 


X8421 


12,7,8 




F8421 


i 


X8421 


12,7,8 


Num 
Blank t 


e 


C84 


4,8 




C84 


@ 


C84 


(Blank) 



t For Card Format Use Only 

* Dump Numerically Operation 11 only 

Write Numerically Operation 11,0 
'* Recorded as 0,8,4, 2, 1 in disk storage 
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Table 25. Core Storage Data Resulting From Reading Alphameric Card Data with RN Instruction 



Alpha 
Character 


Bits Entered into Core Storage 
by Read Numerically Instruction 


C 


F 


8 


4 


2 


1 


A 












X 


B 










X 




C 


X 








X 


X 


D 








X 






E 


X 






X 




X 


F 


X 






X 


X 




G 








X 


X 


X 


H 






X 








I 


X 




X 






X 


.1 


X 


X 








X 


K 


X 


X 






X 




I. 




v 

A 






v 
A 


v 
A 


M 


x 


x 




x 






N 




X 




X 




X 






X 




X 


X 




p 


X 


X 




X 


X 


X 


v 


X 


X 


X 








H 




X 


X 






X 


S 










X 




T 


X 








X 


X 


U 








X 






V 


X 






X 




X 


W 


X 






X 


X 




X 








X 


X 


X 


Y 






X 








Z 


X 




X 






X 



Alpha 
Character 


Bits Entered into Core Storage 
l>y Read Numerically Instruction 


(; 


F 




4 


<> 


I 





X 












1 












X 


2 










X 




3 


X 








X 


X 


4 








X 






5 


X 






X 




X 


6 


X 






X 


X 




7 








X 


X 


X 


8 






X 








9 


X 




X 






X 


/ 












X 


1 . ( period ) 






X 




X 


X 


' , ( comma ) 






X 




X 


X 


@ 


X 




X 


X 






( 


X 




X 


X 






) 


X 




X 


X 












X 




X 


X 


* 




X 


X 


X 










X 










+ 


X 












Card no 




X 










r/o 

Only 12 -° 


X 












=f= 


X 




X 




X 




'$ 


X 


X 


X 




X 


X 


Blank 


X 













1 Interpreted as Record Mark on W.\ and I K institutions. 
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Appendix B 



Alphabetic Listing of all Messages 



Message Program 

XXXX DO TABLE FULL FORTRAN 
XXXX IMPROPER DO NESTING FORTRAN 
XXXX MIXED MODE FORTRAN 
XXXX SYMBOL TABLE FULL FORTRAN 
XXXXX ALABEL + XXXX ERN 

(see Table 6) SPS 
XXXXX CARD SEQ ERROR, 

CORRECT AND START Loader 
XXXXX CORES USED 

XXXXX NEXT COMMON 

END OF COMPILATION FORTRAN 
XXXXX LD1 Supervisor 
XXXXX NAME FORTRAN 
XXXXX SECTORS OF DATA 

COPIED FROM XXXXXX TO 

XXXXXX DUP 
XXXXXX LOADED FROM 

XXXXXX TO XXXXXX Loader 
XX XXXXX OVERLAP FORTRAN 
XXXXXXXXXX TYPE CHANGE DUP 
XXXXXX XXXXX XXXXX LOADED FORTRAN 
XXXX + XXXX ERROR N FORTRAN 
XXX ... X (ID) SPS 
ALREADY DEFINED SPS 
AND FILE PROTECTED DUP 
BAD DISK WRITE. RESET START Supervisor 
CANNOT RESTORE COMMON - 

RESET AND START TO RETRY Supervisor 
CDP ERR XXXXX 0*6 "07 T6 17 36 Supervisor 

37 38 

CDR ERR XXXXX 06 07 16 17 36 Supervisor 
37 38 

CONDITION IGNORED Supervisor 
CONTROL STATEMENT INVALID, 

RE-ENTER Loader 
CORE CAPACITY EXCEEDED BY 

XXXXX LOCATIONS PROGRAM 

IS TERMINATED SPS 
CORRECTIONS HAVE NOT 

BEEN ENTERED DUP 
DISK RD WR ERROR, START 

TO RETRY Loader 
DISK SECTOR XXXXX 

CORRECTED DUP 

DK LOADED XX XX DUP 

DSK ERR XXXXX 06 07 16 17 36 

37 38 Supervisor 
DSK OFL Supervisor 
DUP * ERROR 01 (01 through 21) DUP 40, 
DUP * ERROR 51 (51 through 61 ) DUP 
DUP * TURN OFF WRITE 

ADDRESS KEY, START DUP 



Pages 


Message 


Program 


Pages 


122 


DUr IUKN UN WKllk 






122 


ADDRESS KEY START 


DUP 


32 


122 
122 


LND Or AbSliMBLi 












88 


RFOTTTRFD XXXXX 






STATEMENTS PROCESSED 


SPS 


90 


139 


Fisir> CiV TOP. 


Nimonncili 1 

ouucrvxaur 


14 1Q 


JliIN 1 JiK.rUJK Uo VI ID LI oo 0/ 00 


Supervisor 


OK 
ZD 




rMTTTTJ r\TTT> fXTTUT UTT/^ 

riilNlrjrv UUr UNIKL KHid 


DUr 


lO 

oz 


124 
28 
128 


ENTER MONITOR CONTROL 






RFPOP.'n 


supervisor 


1Q 91 


Hitl Dl yUL tnrougn \ji ) 


PHPTB A XT 

r Un 1 JaAIN 


XOZ 


ERROR LI (LI through L10) 


FORTRAN 


130 




ERROR X 


TT'/""VT"J T'T") A XT 

FORTRAN 


122 


39 


ERROR IN FIELD AT COL. XX. 






SET SW 4 TO IGNORE, OFF TO 






139 


RE-ENTER CARD 


Supervisor 


19 


131 


ERROR IN FIELD AT COLUMN 






33 


XX. PHASE TERMINATED 


Supervisor 


20 


130 


ERROR, INVALID CONTROL 






122 


RECORD 


FORTRAN 


120 


87 


ERROR, INVALID OUTPUT 






93 


TTXTTT' ^/""IT^T 
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121 


39 
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26 
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Q1 
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Supervisor 
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19 
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EXECUTION IS INHIBITED 


Supervisor 


21 
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AAAAAAAAAA 


DUP 


42 


19 


FLIPER XXXXX OVERLAP 


FORTRAN 


131 




IMP ERR 


Supervisor 


26 


140 


IMPROPER IND CODE IN 








SUBR XXXX 


SPS 


92 




JOB ABANDONED 


FORTRAN 


131 


92 


JOB CARD GROUP ONLY 


Supervisor 


19 


34 


LD 2 


Supervisor 


28 


LD 3 


Supervisor 


28 


139 


LD 4 


Supervisor 


28 


LOAD SUBNAM 


FORTRAN 


131 


34 
32, 45 


MAP ERR XXXXX XXXX 


Supervisor 


26 


MAX N2 ALLOWABLE XXXXX 


FORTRAN 


132 


MOD ERR XXXXX 


Supervisor 


26 


26 


MORE THAN 5 CYLINDERS OF 






26 


RELOADABLE OUTPUT SSW 4 






42, 43, 44 


ON TO DUMP OUTPUT, OFF 






44 


TO CONTINUE, NO OUTPUT 


SPS 


91 




MUST RELOAD 


Supervisor 


27 


32 


NAME XXXXX OVERLAP 


FORTRAN 


131 
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Message 


Program 


Pages 


NO DIM ENTRY FOR 






SUBROUTINE 


SPS 


91 


NO ROOM IN TABLE 


SPS 


93 


NO TRAILER REC. CORRECT, 






RELOAD COMPLETE DECK 






WITH CNTR REC, AND BR TO 






7404 


Loader 


139 


NOT IN TABLE 


SPS 


93 


OBJECT DIM ERROR PHASE 






TERMINATED 


Supervisor 


20 


OBJECT NAME ERROR PHASE 






TERMINATED 


Supervisor 


21 


PACK NUMBER. ERROR ON 






MODULE X. SET SSW4 TO 






IGNORE OFF TO RECOMPARE 


Supervisor 


19 


PTR ERR XXXXX 06 07 16 17 36 




37 38 


Supervisor 


25 


PTP ERR XXXXX 06 07 16 17 36 






37 38 


Supervisor 


25 


RDER 


Loader 


139 


RE-ENTER STATEMENT 


SPS 


90 


RE-ENTER OPERANDS 


SPS 


90 


SECTION 


DUP 


33, 34 


SECTOR 


DUP 


33 



NOTE: X's represent variable characters. 



Message 


Program 


Pages 


SECTION NUMBER ILLEGAL, 






START TO RE-ENTER • DALTR 


DUP 


33 


SECTOR ADDRESS ILLEGAL 






START TO RE-ENTER * DALTR 


DUP 


33 


SEQ 


Loader 


139 


SUBR NOT LOCATED IN 






SUBROUTINE MAP 


SPS 


92 


SUBROUTINES OTHER THAN 






PGM DIV USED 


SPS 


91 


SYSTEM DIM ERROR PHASE 






TERMINATED 


Supervisor 


21 


TRAILER CARD SEQ ERROR, 






CORRECT AND START 


Loader 


140 


TRP ERR 


Supervisor 


26 


TRP ERROR MUST RELOAD 


Supervisor 


27 


TYP ERR XXXXX 06 07 16 17 36 




37 38 


Supervisor 


25 


TYPE-IN EXCEEDS SECTOR 






LENGTH, START 


DUP 


34 


UNDEFINED SYMBOL XXXXX 


SPS 


93 


WRITE AND SAVE (SEEK 






START STOP) 


DUP 


33 


WRITE AND ZERO (SEEK 






START STOP) 


DUP 


33 
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Absolute program 8 

ACCEPT statement 107 

ACCEPT TAPE statement 107 

Add (A) instruction 63, 141 

Add Immediate (AI) instruction 63, 141 

Adding macro-instructions to processor 79, 93 

Adding subroutines 

FORTRAN 133 

SPS 79 

Address 

actual, 52 

adjustment, 53 

equivalents for PICK, 74 

length of, 52 

symbolic, 52 

types of, used as operands 52 

Address Check indicator 27 

Altering assignment of disk storage drives 16 

Alter Sector routine 33 

Analog Output Check code 149 

Analog Output Setup code 149 

Arguments 

FORTRAN 110 

SPS 69 

Arithmetic Instructions summary 141 

Arithmetic mode 96 

Arithmetic precision (FORTRAN) 98 

Arithmetic statement functions 116 

Arithmetic statements 100 

Arithmetic subroutines 

FORTRAN 126 

SPS 68 

Arithmetic subroutine macro-instructions 69 

Arrays 98, 106 

Assignment of DIM entries and/or names, rules for 45 

ASSEMBLE RELOCATABLE, SPS Control record 87 

Assignment of System DIM numbers 9. 137 

Asterisk 

FORTRAN 99 

SPS 50,53 

At (@) sign (special character) 47,51 

Automatic Fix/Float 114 

Availability list 36 

BEGIN CARD INPUT, SPS Control record 87 

BEGIN PAPER TAPE INPUT, SPS Control record 87 

BEGIN TYPEWRITER INPUT, SPS Control record 87 

Blank character 51 

headed by, 66 

Branch and Adjust Assignment Counter ( B7 ) 54, 143 

Branch and Transmit (BT) instruction 145 

Branch and Transmit Floating 

instruction (BTFL) 145 

subroutine (BTFS) 68,77 

Branch and Transmit Immediate (BTM) instruction 145 

Branch Any Data Check (BA) instruction 144 

Branch Back and Adjust Assignment Counter ( BB2 ) . . 54, 145 
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Branch Back ( BB ) instruction 145 

Branch Console Switch instructions (BC1, BC2, BC3, BC4) 144 

Branch Data Ready (BIR) instruction 151 

Branch End of Message (BRE) instruction 151 

Branch Equal ( BE ) instruction 144 

Branch Exponent Check ( BXV ) instruction 144 

Branch High (BH) instruction 143 

Branch Indicator ( BI ) instruction 143 

Indicator Codes summary 149 

Branch instructions 143, 144, 145 

Branch Last Card (BLC) instruction 144 

Branch Low (BL) instruction 145 

Branch Mode Shift (BMC) instruction 151 

Branch Negative (BN) instruction 145 

Branch No Data Ready (BNIR) instruction 151 

Branch No End of Message (BNRE) instruction 151 

Branch No Flag ( BNF ) instruction 143 

Branch No Indicator ( BNI ) instruction 144 

Indicator Codes summary 149 

Branch No Mode Shift (BNMC) instruction 151 

Branch No Output Record Mark (BNOR) instruction 151 

Branch No Overflow (BNV) instruction . 145 

Branch No Record Mark ( BNR ) instruction 143 

Branch No SIOC Not Busy (BCB) instruction 151 

Branch Not Any Data Check ( BNA ) instruction 145 

Branch Not Equal ( BNE ) instruction 144 

Branch Not Exponent Check ( BNXV ) instruction 145 

Branch Not High (BNH) instruction 144 

Branch Not Last Card (BNLC) instruction 145 

Branch Not Low ( BNL ) instruction 144 

Branch Not Negative ( BNN ) instruction 144 

Branch Not Positive (BNP) instruction . 144 

Branch Not Zero ( BNZ ) instruction 144 

Branch on Digit ( BD ) instruction 143 

Branch Out of Noninterruptible Mode (BO) instruction ... 150 

Branch Out and Load (BOLD) instruction 150 

Branch Output Record Mark (BOR) instruction 151 

Branch Overflow ( BV ) instruction 144 

Branch Positive ( BP ) instruction 144 

Branch SIOC Not Busy (BCNB) instruction 151 

Branch Zero ( BZ ) instruction 144 

CALL EXIT linkage 22 

CALL EXIT statement 

FORTRAN 105 

SPS 83 

CALL LINK linkage 21 

CALL LINK statement 

FORTRAN 119 

SPS 83 

CALL LOAD 

linkage 21 

macro-statement 83 

CALL statement 

FORTRAN ... 118 

SPS 83 
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Card I/O 23 

Card read error 25 

Card write error 25 

Carriage, printer 137.2, 137.5 

Check Disk (CDN) instruction 147 

Check Disk Track (CTN) instruction 148 

Check Disk Track/WLRC (CTGN) instruction 147 

Check Disk/WLRC (CDGN) instruction 147 

Clear Flag (CF) instruction 148 

Coding sheet 

FORTRAN 96 

SPS 47 

Commas 50 

Comments 

FORTRAN 95 

SPS 

with asterisk 50 

see Remarks 

Comments Monitor Control record 16 

COMMON statement 109 

Communications Areas 29, 40, 41 

Compare Immediate. (CM) instruction - 143 

Compare (C) instruction 143 

Constants 

FORTRAN 97 

SPS 

at sign 51 

Define Alphameric Constant ( D AC ) 58 

Define Constant (DC) 56 

Define Special Alphameric Constant ( DSAC ) 59 

Define Special Constant (DSC) 58 

Define Variable-Length Constant (DVLC) 58 

CONTINUE statement 104 

Control (K) instruction 147 

Control operation 
codes 47, 147 

Control record trap error 26 

Control records 

DUP 32-42 

FORTRAN 120 

MONITOR 14 

SPS 87 

Control statements (FORTRAN) 101 

Converting FORTRAN Object Programs to Core Image . . . 128.1 

Core storage requirements 11 

Customer Engineer ( CE ) Interrupt code 149 

Cylinder Overflow Error 25 

Cylinder Overflow indicator 26, 27 

DALTR, DUP control record 33 

DATA control record 129 

Data transmission subroutine macro-instructions 69 

Data transmission subroutines 68 

DCOPY, DUP control record 39 

DDUMP, DUP control record 35 

Declarative operations 

card format (list) 90 

codes 47, 55 

functions 55 

summary 140 

Define Alphameric Constant ( DAC ) statement 58 

at sign 51 

blank character 51 

Define Alphameric Symbol (DAS) statement 56 

Define Card Alphameric (DCA) 84 
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Define Card Numerical ( DCN ) 84 

Define Disk without WLRC ( DD ) 84 

Define Disk with WLRC ( DDW ) 84 

Define Constant (DC) statement 56 

at sign 51 

Define Disk Address (DDA) statement 60 

Define Disk Pack Label Routine 41 

DEFINE DISK statement . 110 

Define END (DEND) statement 65 

Define FORTRAN Library Subroutine Name routine 42 

Define Group Mark (DGM) statement 61 

Define Message ( DMES ) statement 61 

Define Numerical Blank ( DNB ) statement 59 

DEFINE OP CODE, SPS Modification Control record 93 

Define Origin (DORG) statement 65 

Define Paper Tape Alphameric ( DPTA ) 84 

Define Paper Tape Numerical (DPTN) 84 

Define Parameters routine 40 

Define Printer Alphameric (DPRA) 137.3 

Define Printer Numerical (DPRN) 137.3 

Define Special Constant ( Numerical ) DSC statement 58 

Define Special Symbol (Numerical) DSS statement 56 

Define Symbol ( Numerical ) DS statement 55 

Define Symbolic Address ( DSA ) statement 59 

Define Symbolic Block (DSB) statement 59 

DEFINE SYSTEM SYMBOL TABLE, SPS Modification 

Control record 93 

Define Typewriter Alphameric (DTA) 84 

Define Typewriter Numerical (DTN) 84 

Define Variable-Length Constant ( DVLC ) statement .... 58 

DELET, DUP control record 39 

DELETE OP CODE, SPS Modification Control record 93 

Delete Programs routine 39 

DFINE, DUP control record 40 

DFLIB, DUP control record 42 

DIM entry 9, 45 

DIM numbers for Monitor System 9 

DIM table 9 

DIMENSION statement 109 

Disk control field 23 

Disk I/O constants 22 

Disk I/O options 22 

Disk pack identification numbers 11, 17, 41 

Disk pack label 41 

Disk storage I/O 23 

Disk storage requirements 8 

Disk Utility Program 31 

Disk Utility Program, printer 137.1 

Disk-to-Disk routine . 38 

Disk-to-Output routine 34 

Divide (D) instruction 141 

Divide Immediate (DM) instruction 141 

Divide subroutine 75 

Divisor, incorrect positioning 76 

DLABL, DUP control record 37, 41 

DO statement 103 

Dollar sign (special character) 50, 51, 66 

DREPL, DUP control record 38 

Drive code 16, 60 

Dummy variables 117, 118 

Dump Numerically Card (DNCD) instruction 146 

Dump Numerically (DN) instruction 146 

Dump Numerically Paper Tape (DNPT) instruction 146 

Dump Numerically Typewriter (DNTY) instruction 146 
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DUP, Monitor Control record 14, 15 

Duplicate symbols ( labels ) 65, 89 

DWRAD, DUP control record 32 

END statement 105 

End-of-Job Monitor Control record 14, 16 

End-of-line character 50 

ENDLIB, SPS Modification Control record 94 

Entry Check error 25 

Entry points of I/O routine 21 

Equal sign ( SPS special character ) 50 

EQUIVALENCE statement 109 

Equivalence table 9, 36 

Error checking, FORTRAN 132 

Error correction ( SPS ) 

assembly time . . . . 88 

Error correction codes, I/O Error routine 24 

Error Count Retrieval routine 27 

Error detection and correction, DUP 42 

Error Messages - ( see Appendix B ) 155 

ERROR STOP, SPS control record 87 

Evaluation of arguments (subroutines) 

FORTRAN 115 

SPS 69 

Execution times ( SPS subroutines ) . 152 

Exponents 

FORTRAN 96 

SPS 72 

Expressions, FORTRAN 99 

FANDK Control record 120 

FETCH statement 108 

File protected programs 10 

FIND statement 107 

Fixed length, defined ( SPS ) 69 

Fixed-length mantissa subroutines (SPS) 68 

Fixed-Point Divide (FD) subroutine 68 

Fixed-point variables ( FORTRAN ) 98 

Flag indicator operand 51 

in immediate instructions 52 

in indirect addressing 52 

Flags, set 49,51,72 

Floating Add 

instruction (FADD) 141 

subroutine (FA) 68,74 

Floating Arctangent (FATN) subroutine 68,78 

Floating Cosine (FCOS) subroutine 68,78 

Floating Divide 

instruction (FDIV) 141 

subroutine (FD) 68,75 

Floating Exponential (Base 10) FEXT subroutine 68,79 

Floating Exponential (Natural) FEX subroutine 68,78 

Floating Logarithm (Base 10) FLOG subroutine 68,79 

Floating Logarithm (Natural) FLN subroutine 68,79 

Floating Multiply 

instruction (FMUL) 141 

subroutine (FM) 68,75 

Floating-point arithmetic 71 

Floating-point variables (FORTRAN) 98 

Floating Shift Left 

instruction (FSL) 142 

subroutine (FSLS) 68,77 

Floating Shift Right 
instruction (FSR) 142 



Page 

subroutine (FSRS) 68,76 

Floating Sine (FSIN) subroutine 68,78 

Floating Square Root (FSQR) subroutine 68,78 

Floating Subtract 

instruction (FSUB) 141 

subroutine (FS) 68, 75 

FOR Monitor Control record 13, 15 

Format of DIM entry 9 

FORMAT statement Ill 

FORMAT statement (Printer) 137.4 

FORTRAN and SPS output 45 

FORTRAN Control records 120 

FORTRAN Control Records (Printer) 137.5 

FORTRAN II-D 95 

FORTRAN II-D language 95 

FORTRAN subroutine error codes 132 

FORX Monitor Control record 13, 15 

Full track disk operation 24 

Function Register Check Indicator code 149 

FUNCTION statement 117 

Functional subroutine macro-instructions 69 

Functional subroutines 68 

GET macro-statement 83 

GO TO statements 101 

Halt (H) instruction 148 

Halt at core address 00467 26 

Head character 66 

Heading 

for combining programs 65 

in nesting 66 

line 47 

High indicator 29 

I/O constants . 22 

I/O Error routine 24 

I/O routine 21 

ID NUMBER dddd, SPS control record 88 

Identification records, FORTRAN 124, 134 

IF statement 102 

IF (SENSE SWITCH) statement 102 

Immediate-type instructions 52 

Imperative operations 62 

arithmetic , 63, 141 

branch 63, 143 

card format (list) 90 

codes, 1710 150 

input/output 64, 146 

internal data transmission 63, 142 

miscellaneous 64, 148 

Index, DO 103 

Indicator codes (1620/1710) 149 

Indirect addressing 54 

Initializing the Monitor System 8 

Input/Output options 22 

Input/Output statements ( FORTRAN ) 105 

Input instructions 146, 147, 148 

Internal Data Transmission instructions 142 

I/O declarative statements 84 

I/O macro-statements 83 

Job arrangement 17 

JOB Monitor Control record 12, 14 
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Label (SPS) 

characters permitted in 47 

five characters or less, headed 66 

Symbol table 90 

table, see Symbol table 
Label, disk pack 

1401, 1410, 1440 10 

Monitor 11,41 

Mutual 10 

LDISK Control record 121 

LIBR, SPS control record 88 

Library functions (FORTRAN) 114 

additional 115 

writing in SPS 136 

Link program 119 

Linkage instructions 69, 70, 80 

Linkages for Supervisor I/O routine 21 

LIST CARD, SPS control record 88 

LIST OP CODE, SPS Modification Control record 93 

LIST TYPEWRITER, SPS control record 88 

LIST (FORTRAN) 113 

Load Programs routine 36 

Load Dividend Immediate (LDM) instruction 141 

Load Dividend (LD) instruction 141 

Load-on-call subprograms 119 

Loader, System 138 

Loader routine 27 

Loading the Monitor System to disk storage 8 

LOCAL Control record 129 

Location assignment counter ( SPS ) 62, 65, 140 

Logic instructions 143, 144, 145 

Machine requirements 8 

Macro-instructions ( see Subroutines ) 

operation of 69 

rules for coding 70 

Mantissa 

FORTRAN 40, 96, 120 

SPS 40,71,87 

MANTISSA LENGTH nn, SPS control record 87 

Manual restart 22 

MAR Check Indicator code 149 

Mask Indicator code 149 

Mask Interrupts (MK) instruction 150 

Matrix Input/Output (FORTRAN) 106 

MBR-E Check indicator 27 

MBR-O Check indicator 27 

Miscellaneous instructions ( SPS ) 64, 148 

Mode of expressions (FORTRAN) 99 

Modification of variable-length subroutine 80 

Modification program, SPS II-D 92 

Modifier constants 80 

Module change numbers 16 

Monitor Control Record Analyzer routine 18 

Monitor Control Records 12 

Monitor disk pack label 11 

Monitor I System 5 

Monitor I System loader 138 

Move Flag ( MF ) instruction 148 

Multiplex Complete, code 149 

Multiply Immediate (MM) instruction 141 

Multiply (M) instruction 141 

Mutual Disk Pack Labels 10 
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Name, program 45 

NAME, aaaaaa, SPS Control record 88 

N (noise) digit, defined 72 

Nesting of routines 66 

NOISE DIGIT n, SPS Control record 87 

No Operation (NOP) instruction 148 

Normalizing 72 

NO SUBROUTINES, SPS control record 88 

OBJECT CORE n, SPS Control record 87 

Object deck format 45 

Object program execution (FORTRAN) 128 

Operand 51 

address adjustment of , .... 53 

asterisk, use of 52 

at ( @ ) sign, use of 51 

blank in 51 

comma, use of 50 

dollar sign, use of 51 

end-of-line character, use of 50 

flag indicator 51 

special characters in 50 

types of addresses used as 52 

see P and Q operands 

Operating procedures (FORTRAN) 121 

Operating procedures, FORTRAN object programs ...... 131 

Operating procedures ( SPS ) 86 

Operation code 

coding sheet field 49 

Control 47, 64 

Declarative 47, 55 

Imperative 47, 62 

Operation of Monitor System 8 

Operation symbols 99 

Operator Entry Indicator code 149 

Operators 

FORTRAN 99 

SPS 53 

Origin 65,81 

OUTPUT CARD, SPS Control record 88 

Output format 35 

card . 35 

paper tape 36 

typewriter 36 

OUTPUT PAPER TAPE, SPS Control record 88 

Output Printer (1710) control codes 61 

Output unit codes 146, 147, 148 

Output instructions 146, 147, 148 

Output listing ( SPS ) 90 

Overflow, exponent 73 

Overlap errors (FORTRAN) 131 

P operand 49-54 

modifier constants 80 

Paper tape I/O 23 

Paper tape read error 25 

Parentheses 

FORTRAN 100 

SPS 49 

PAUS Monitor Control record 14, 15 

PAUSE statement 104 

Period (special character) 47 

Permanently assigned programs 10 
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Pick subroutine 71, 74 

address equivalents for 74 

functions 80 

POBJP Control record 121 

PRINT statement 107,137.4 

Printer Busy, indicator 137.1 

Process Branch Indicators, 1-20, codes 149 

Process Interrupts 1-12, codes 149 

Processor (SPS) 86 

Product area 75, 76 

mnemonics 67 

Programming SPS II-D 55 

Program switch settings 

FORTRAN 130 

Loader 138 

Monitor 98 

PSTSN Control record 121 

PUNCH RESEQUENCED SOURCE DECK, SPS Control 

record 88 

PUNCH statement 107 

PUNCH SYMBOL TABLE, SPS Control record 88 

PUNCH TAPE statement 107 

PUT macro-statement 83 

Q operand 49-54 

in Immediate instructions 52 

see Operands 

Range, DO 103 

Read Alphamerically Card (RACD) instruction 147 

Read Alphamerically Paper Tape ( RAPT ) instruction .... 146 

Read Alphamerically Typewriter (RATY) instruction .... 146 

Read Alphamerically ( RA ) instruction 146 

Read check indicator 25, 27 

Read Disk (RDN) instruction 147 

Read Disk Track (RTN) instruction 147 

Read Disk Track/WLRC (RTGN) instruction 147 

Read Disk/WLRC (RDGN) instruction 147 

Read Numerically Paper Tape (RNPT) instruction 146 

Read Numerically ( RN ) instruction . 146 

Read Numerically Typewriter (RNTY) instruction 146 

READ statement 106 

Record mark 51, 57 

RECORD statement 108 

Relocatable program 8 

Relocatability, rules 92 

Remarks 49 

Replace Programs routine 38 

Repositioning of DISK access arms 24 

Restart, manual 22 

Restore (RSTR) statement 67 

Return Carriage Typewriter (RCTY) instruction 147 

RETURN statement 118 

Rules for assignment of DIM entries and/or names 45 

Rules for statement writing ( SPS ) 49 

Save (SAVE) statement 67 

Save error count procedure 24 

Sector, disk 

address 60 

count , 60 

Seek (SK) instruction 147 

SEEK macro-statement 83 

Select ADC and Increment ( SLAD ) instruction 150 
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Select ADC Register (SLAR) instruction 150 

Select Address and Contact Operate ( SACO ) instruction . . 150 

Select Address and Operate ( SAO ) instruction 150 

Select Address (SA) instruction 150 

Select Analog Output and Signal ( SAOS ) instruction .... 150 

Select Contact Block ( SLCB ) instruction 150 

Select Manual Entry Switches (SLME) instruction 150 

Select Read Numerically ( SLRN ) instruction , 150 

Select Real-Time Clock (SLTC) instruction 150 

Select TAS (SLTA) instruction 150 

Sequential Program table 10 

Set Flag (SF) instruction 148 

Sign control in floating-point arithmetic (SPS) 72 

Slash symbol 

FORTRAN 99 

SPS 47 

Source Program 

FORTRAN 119 

SPS 86 

Space Typewriter (SPTY) instruction 147 / 

Special Characters 

for statement writing 49-51 

permitted in labels 47 

Specification statements 108 

SPS Control records 87 

SPS Monitor Control record 12, 15 

SPSX Monitor Control record 13, 15 

Stacked input 17 

Statements 

FORTRAN 95 

FORTRAN (Printer) 137.4 

SPS 47-50 

SPS (Printer) 137.2 

STOP statement 105 

STORE CORE IMAGE, SPS Control record 88 

STORE RELOADABLE, SPS Control record 88 

Subprogram statements 117 

SUBROUTINE statement , 117 

Subroutines 
FORTRAN 

library 125 

adding to 133 

Arithmetic and I/O 126 

SUBROUTINE statement 117 

SPS 

adding, 79 

arithmetic, 69 

data transmission, 69 

entry points 70, 81 

equal/zero indicator 74 

execution times 152 

functional 68 

high/positive indicator 74 

identification number 70 

overflow indicator 74 

pairing, 70 

sets 70 

writing, 79 

see macro-instructions 

SUBROUTINE SET nn, SPS Control record 87 

Subscripted variables 99 

Subscripts 98 

Subtract Immediate (SM) instruction 141 

Subtract (S) instruction 141 
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Supervisor program 12 

Symbol table 

FORTRAN 127 

SPS 88,89 

system 88,93 

System error 26 

System header label area, 1401, 1410, 1440 10 

System Output format 8, 27 

indicator codes 28 

System Symbol table 88, 93, 137.4 

SYSTEM SYMBOL TABLE, SPS Control record 88 

Tables 

1. Numbered Error Messages Generated 

by Disk Utility Routines 43 

2. DMES Representation of Output Printer Control 
Codes 61 

3. SPS Subroutine Method of Evaluating Arguments . . 68 

4. SPS Subroutine Group and Identification Numbers . . 70 

5. SPS Subroutine Errors 73 

6. Description of SPS Error Codes 89 

7. Disposition of SPS Errors when no Error 

Stop Statement is used 89 

8. Codes and Assembled Data for SPS 

Modification Program 94 

9. Program Switch Settings for FORTRAN II-D 
Compilation 122 

10. FORTRAN Phase 1 Source Program Errors 123 

11. FORTRAN II-D Library Subroutines 126 

12. FORTRAN Arithmetic and Input/Output 
Subroutines 127 

13. FORTRAN Loader Errors 130 

14. FORTRAN Subroutine Error Codes 132 

14.1 Imperative Printer Mnemonics 137.2 

14.2 OP Codes and Q Modifiers Generated for 

Printer Mnemonics 137.3 

14.3 Q Operands and Q Modifiers for Skip and 

Space Operations 137.3 

15. Summary of SPS Declarative Operations 140 

16. Summary of SPS Arithmetic Instructions 141 

17. Summary of SPS Internal Data Transmission 
Instructions 142 

18. Summary of SPS Logic (Branch and Compare) 
Instructions 143 

19. Summary of SPS Input and Output Instructions .... 146 

20. Summary of SPS Miscellaneous Instructions 148 

21. 1620/1710 Indicator Codes for SPS BI-BNI 
Instructions , 149 

22. 1710 SPS Operation Codes 150 

23. SPS Subroutine Macro-instruction Execution 

Times 152 
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24. 1620 Character Coding 153 

25. Core Storage Data Resulting from Reading 
Alphameric Card Data with RN Instruction 154 

Tabulate Typewriter (TBTY) Instruction 147 

Trace feature, FORTRAN 125 

Transfer Numerical Fill (TNF) instruction . 142 

Transfer Numerical Strip (TNS) instruction 142 

Transmit Floating 

instruction (TFL) 142 

Subroutine (TFLS) 68,77 

Transmit Record (TR) instruction 142 

TWO PASS MODE, SPS Control record 87 

TYPE Monitor Control record 14, 15 

TYPE statement 107 

TYPE SYMBOL TABLE, SPS Control record 87 

Typewriter I/O 23 

Typewriter read error 25 

Typewriter write error 25 

Unavailable disk drive error 26 

Underflow, exponent 73 

Unmask Interrupts ( UMK ) instruction 150 

Unnormalized numbers 72 

Variable length, defined 69 

Variables (FORTRAN) 97 

Variable-length mantissa subroutines ( SPS ) 68 

WLR-RBC check indicator 27 

Working areas, subroutine 

FORTRAN 133 

SPS 80 

Working cylinders 9, 86, 110, 132 

Write Addresses routine 32 

Write Alphamerically Card ( WACD ) instruction 147 

Write Alphamerically Paper Tape ( WAPT ) instruction . . . 147 

Write Alphamerically Typewriter ( WATY ) instruction .... 147 

Write Alphamerically ( WA ) instruction 147 

Write check indicator 25, 27 

Write Disk (WDN) instruction 147 

Write Disk Track/WLRC (WTGN) instruction 147 

Write Disk Track (WTN) instruction 148 

Write Disk/WLRC (WDGN) instruction 147 

Write error count error 26 

Write Numerically Card (WNCD) instruction 146 

Write Numerically Paper Tape (WNPT) instruction 146 

Write Numerically Typewriter (WNTY) instruction 146 

Write Numerically (WN) instruction 146 

XEQ Monitor Control record 13, 15 

XEQS Monitor Control record 14, 15 
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